Неправильно выводит количество строк и столбцов

[Otar4ik]

{Дана целочисленная матрица размера 5 x 10. Вывести номер ее первой1|последней2 строки3|столбца4, содержащего равное количество положительных и отрицательных элементов (нулевые элементы не учитываются).Если таких строк3|столбцов4 нет, то вывести 0.}

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

program var3_8;

var
   a: array[1..6, 1..11] of integer;
   n, m, i, j, k: integer;
   f: boolean;
   key: integer;

begin
   writeln('1 - Вывести номер ее первой строки, содержащего равное количество положительных и отрицательных элементов');
   writeln('2 - Вывести номер ее последней столбца, содержащего равное количество положительных и отрицательных элементов');
   readln(key);
   write('Введите количество строк и столбцов: ');
   readln(m, n);
   for i := 1 to m do
   begin
      for j := 1 to n do
      begin
         a[i, j] := random(199) - 99;
         write(a[i, j]:4);
      end;
      writeln;
   end;
   case key of
      1:
         begin
            for i := 1 to m do
            begin
               k := 0;
               for j := 1 to m do
                  if a[i, j] > 0 then inc(k)
                  else dec(k);
               if k = 0 then
               begin
                  f := true;
                  break;
               end;
            end;
            if f then writeln('Номер первой строки  = ', i)
            else writeln('Нет таких строк');
            readln;
         end;
      2:
         begin           
           for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
      if a[i,j]>0 then inc(k)
        else dec(k);
    if k=0 then
    begin
      f:=true;
      break;
    end;
  end;
  if f then writeln('Номер столбца = ',j)
    else writeln('Нет таких столбцов');         
         end;
   end;   
end.

[Krasiosoft]

program var3_8;

var
   a: array[1..6, 1..11] of integer;
   n, m, i, j, k: integer;
   f: boolean;
   key: integer;

begin
   randomize;
   writeln('1 - Вывести номер ее первой строки, содержащего равное количество положительных и отрицательных элементов');
   writeln('2 - Вывести номер ее последней столбца, содержащего равное количество положительных и отрицательных элементов');
   readln(key);
   write('Введите количество строк и столбцов: ');
   readln(m, n);
   for i := 1 to m do
   begin
      for j := 1 to n do
      begin
         a[i, j] := random(199) - 99;
         write(a[i, j]:4);
      end;
      writeln;
   end;
   case key of
      1:
         begin
            for i := 1 to m do
            begin
               k := 0;
               for j := 1 to n do
                  if a[i, j] > 0 then inc(k)
                  else
                     if a[i, j] < 0 then dec(k);
               if k = 0 then break;
            end;
            if k = 0 then writeln('Номер первой строки  = ', i)
            else writeln('Нет таких строк');
         end;
      2:
         begin
            for i := n downto 1 do
            begin
               k := 0;
               for j := 1 to m do
                  if a[j, i] > 0 then inc(k)
                  else
                     if a[j, i] < 0 then dec(k);
               if k = 0 then break;
            end;
            if k = 0 then writeln('Номер последнего столбца = ', i)
            else writeln('Нет таких столбцов');
         end;
   end;
   readln;
end.

Подправил, должно работать.

[Otar4ik]

Большое спасибо вам!