В прямоугольной матрице определить количество столбцов, содержащих только числа одного знака (положительные или отрицательные) и не содержащих нулевых элементов — Pascal(Паскаль)

const 
m=3;
n=10;
var
a:array[1..m,1..n] of integer;
i,j,k:integer;
f:boolean;
begin
for i:=1 to m do
    begin 
        for j:=1 to n do
          begin
            a[i,j]:=20-random(40);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 
k:=0;
for j:=1 to m do
begin
 f:=true;
 for i:=1 to n do if not a[1,j]*a[i,j]>0 then
 begin
  f:=false;
  break;
 end;
 if f then inc(k);
end;
writeln(k);
end.