С помощью Паскаля; Дан двумерный массив(4 столбца, 3 строки), заполненный случайным образом. Вывести массив и найти: а)количество отрицательных элеметов в 3 строке; б)сумму элементов всего массива; в)минимальный элемент в 1 столбце; Желательно, на каждый пункт отдельную задачу;)

Const n=3; m=4;
var a: array [1..n,1..m] of integer;
    k,sum,min,i,j:integer;
begin
Randomize;
writeln(---A:---);
for i:=1 to n do begin
  for j:=1 to m do begin
    a[i,j]:=Random(20)-10;
    write(a[i,j]:6);
  end;
  writeln;
end;
// а
k:=0;
for j:=1 to m do
 if a[3,j]writeln(k=,k);
// б
sum:=0;
for i:=1 to n do
  for j:=1 to m do sum:=sum+a[i,j];
writeln(sum=,sum);
// в
min:=a[1,1];
for i:=2 to n do
 if a[i,1]writeln(min=,min);
end.