помогите решить задачку на 2мерные масивы

[xartion]

дана матрица
-5,1 1,27 10,2 4
7,52 -167 -5,83 14,12
1,96 1,92 -1,42 8,56
2 5 -2,1 6
11,72 -4,56 2,91 2,74
нужно найти номера столбцов,в которых все элементы положительные...
помогите плиз)

[Chudo4258]

var A:array[1..100,1..100] of integer;
    i,j:integer;
    p:boolean;
    m,n:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
randomize;
writeln('Razmernost matricy n x m');
write('n='); readln(n);
write('m='); readln(m);
for i:=1 to n do
 for j:=1 to m do
  A[i,j]:=-10+random(99);

for i:=1 to n do begin
 for j:=1 to m do
  write(A[i,j]:5);
 writeln; end;

for j:=1 to n do
begin
 p:=true;
 for i:=1 to m do
  if A[i,j]<=0 then p:=false;
 if p then Writeln('N= ',j);
end;
readln;
end.

[xartion]

ууу...спасибо чел оч помог!