Помогите срочно надо!!!
1.Дан двумерный массив.Определить:
а) Сумму всех элементов третьей строки массива;
б) Сумму всех элементов 5-го столбца массива.
2.Дан двумерный массив.Определить:
а) Сумму отрицательных элементов пятой строки массива;
б) Сумму элементов четвертого столбца массива, меньших 100;
в) количество элементов четвертой строки массива, меньших 5;
г) количество ненулевых элементов второго столбца массива, больших 15.
Нужно написать программы в Паскале.Заранее спасибо.

//Pascal//1)var  A: array[1..5, 1..8] of integer;  i, j: byte;  sumR, sumC: integer;begin  randomize;  writeln('Исходный массив':28);  for i := 1 to 5 do  begin    for j := 1 to 8 do    begin      A[i, j] := random(61)-30;      write(A[i,j]:5);      if i = 3 then sumR := sumR + A[i, j];      if j = 5 then sumC := sumC + A[i, j];    end;  writeln;  end;  writeln('Сумма элементов 5 столбца = ', sumC);  writeln('Сумма элементов 3 строки = ', sumR);end.//2)var  A: array[1..5, 1..8] of integer;  i, j: byte;  sumA, sumB, countV, countG: integer;begin  randomize;  writeln('Исходный массив':28);  for i := 1 to 5 do  begin    for j := 1 to 8 do    begin      A[i, j] := random(300)-150;      write(A[i,j]:5);      if ((i = 5) and (A[i, j] < 0)) then sumA := sumA + A[i, j];      if ((j = 4) and (A[i, j] < 100)) then sumB := sumB + A[i, j];      if ((i = 4) and (A[i, j] < 5)) then countV := countV + 1;      if ((j = 2) and (A[i, j] > 15)) then countG := countG + 1;    end;  writeln;  end;  writeln('Сумма отрицательных 5 строки = ', sumA);  writeln('Сумма меньших 100 4-ого столбца = ', sumB);  writeln('Количество меньших 5 4-ой строки = ', countV);  writeln('Количество ненулевых, больших 15 2-ого столбца = ', countG); end.