Найти столбец матрицы, где только отрицательные элементы — Pascal(Паскаль)

const 
n=3;
m=9;
var
a:array[1..n,1..m] of integer;
i,j,nn,so:integer;
begin
for i:=1 to n do
    begin 
        for j:=1 to m do
          begin
            a[i,j]:=10-random(25);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 

Nn:=0;{obnulenie nomera}
for j:=1 to m do 
 begin
   So:=0;{obnulenie sumi}
   {pidrahunok vidjemnih elementiv}
   for i:=1 to n do 
   if(A[i,j]<0) then So:=So+1;
   if(So=n) then begin 
                Nn:=j;
                writeln('Stolbec:',j) 
                end;
 end;
if nn=0 then write('Takogo stolbca net!');



end.