Найти сумму отрицательных элементов по каждому столбцу матрицы DH(m,n)

переделай под свою, не сможешь, пиши
program massiv; //произведение столбцов
uses crt;
var
j,i:integer;
a:array[1..10,1..10] of integer;
b:array[1..10] of longint;
BEGIN
randomize;
clrscr;
writeln('решение задачи на массивы ');
writeln('---------------------------');
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a [ i, j ]:=random(10)+1; write(a [ i, j]:3);
end;
writeln; end;
for j:=1 to 10 do begin
b [ j ]:=1;
for i:=1 to 10 do
b [ j ]:=b [ j ]*a [ i, j ];
write(b [ j ] ,' '); end;
writeln;
writeln('конец задачи ');
readkey;
END.