Задача! паскаль!

[Ириска_92]

в каждом столбце заданной матрицы,А(N,M) вычислить сумму отрицательных элементов

[Asker13]

const
  N = 10;
  M = 7;
var
  i,j,sum: integer;
  a: array [1..N, 1..M] of integer;
begin
  Randomize;
  for i := 1 to N do
    for j := 1 to M do a[i,j] := Random(20) - 10;
  for i := 1 to N do begin
    sum := 0;
    for j := 1 to M do
      if a[j, i] < 0 then sum :=  sum + a[j, i];
    WriteLn(sum);
  end;
  ReadLn;
end.

[Ириска_92]

Спасибо огромное!