Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов соответствующего столбца заданной целочисленной матрици A размером 5Х8.- Pascal(Паскаль)

uses crt;
var a:array[1..5,1..8]of integer;
    c:array[1..50]of integer;
    i,j,kol,m:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do begin
    for j:=1 to 8 do begin
        a[i,j]:=random(10)-4;
        write(a[i,j]:3);
    end;writeln;
end;writeln;
m:=1;
for j:=1 to 8 do begin
    kol:=0;
    for i:=1 to 5 do begin
        if a[i,j]<0 then inc(kol);
    end;
    c[j]:=kol;
    write(c[j]:3);
end;
readln;
end.