дан двумерный массив(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]<0 then k:=k+1;
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]<min then min:=a[i,1];
writeln('min=',min);
end.