Дан двумерный массив размерностью n x m, заполненный случайными числами. Определить, есть ли в данном массиве столбец, в котором равное число положительных и отрицательных элементов — Pascal(Паскаль)

var
a:array[1..100,1..100]of integer;
n,m,i,j,kp,ko,f:integer;
begin
writeln('kol-vo strok->');
readln(m);
writeln('kol-vo stolbcov->');
readln(n);
randomize;
writeln('massiv');
for i:=1 to m do
begin
 for j:=1 to n do
 begin
 a[i,j]:=random(20)-10;
 write(a[i,j]:4);
 end;
 writeln;
end;
for j:=1 to n do
begin
ko:=0;
kp:=0;
for i:=1 to m do
if a[i,j]>0 then inc(kp) else if a[i,j]<0 then inc(ko);
if kp=ko then
begin
writeln('stolbec ',j);
f:=1;
end;
end;
if f=0 then writeln('takih stolbcov net');
readln;
end.