Исправить ошибку в программе.Количество в двумерном массиве.

[Катакомба]

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

begin
write('stroki - ');
readln(n);
write('stolbcy - ');
readln(m);
 For i:=1 to n do
For j:=1 to m do
begin write('a[',i,',',j,']=  ');
readln(a[i,j]);
end;
writeln;
writeln('massiv');
for i := 1 to n do
  begin
  for j := 1 to m do
    write(a[i,j]:5:1);
    writeln;
  end;
  writeln;
  readln;

   c:=0;
   pol:=0;
   otr:=0;
   for i := 1 to n do
   begin
   for j := 1 to m do
  if a[i,j]>=0 then
 begin
  l:=pol+1;
  //
  writeln('pol= ',l);
  //
  end
  else
  b:=otr+1;
  //
  writeln('otr= ',b);
  //
   if l>b then
 begin
kol:=c+1;
end;

writeln('kol-vo strok= ',kol);
readln;
   end;
end.

[Son Of Pain]

Обнуляй счетчики во внешнем цикле каждый раз )

[Катакомба]

как это сделать?

[Son Of Pain]

)
вместо

pol:=0;
otr:=0;
for i := 1 to n do
begin

написать

for i := 1 to n do
begin
pol:=0;
otr:=0;

[Катакомба]

всё равно не работает.
он по несколько ответов пишет и те не правильные

[Son Of Pain]

Осталось привести в порядок использованные переменные в коде, убрать лишний вывод во writeln, и все заработает.

[Exoo]

for i := 1 to n do
       begin
       pol:=0;
       otr:=0;
       for j := 1 to m do
           begin
           if a[i,j]>=0 then inc(pol)
           else inc(otr);
           end;
       if pol>otr then writeln('in ',i,'-th line pol elements > otr at ', pol-otr)
       else writeln('in ',i,'-th line pol elements <= otr ');
       end;
readln;