Матрица

Дана матрица размера 5х5.Найти номера столбцов, в которых, положительных элементов больше, чем отрицательных.Напечатать найденные номера столбцов и число положительных элементов в них.
вот у меня есть решение, но не так работает , к тому же не понимаю как вывести номера столбцов!!!
пожалста помогите) а то я чет не очень понимаю!


const
N=5;
var
A: array [1..N, 1..N] of integer;
i,j, k, ot,pol, nom: integer;
begin
randomize;
for i:=1 to N do
for j:=1 to N do
A[i, j]:=- 50+random(101);
begin
for j:=1 to N do
begin
writeln;
for i:=1 to N do
write(A[i, j]:4);
end;
end; writeln;
for i:=1 to n do begin
for j:=1 to n do begin
begin
for j:=1 to 5 do begin
if a[i, j]>0 then pol:=pol+1
else ot:=ot+1;

end;


end; {не работает !!!!! цикл не правильный!!!!}
if ot>pol then writeln('больше отрицательных элементов')
else writeln('больше положительных элементов');
writeln('число положительных элементов=', pol);

end;
end;
end.

0