В двумерном массиве найти номера строк, имеющих и положительные, и отрицательные элементы

Var A:array[1..20,1..20] of integer;
    i,j,k1,k2,n,m,max:byte;
Begin
    write('Кол-во строк = ');readln(n);
    write('Кол-во столбцов = ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    write('Строки имеющие отрицательные и положительные ');
    max:=0;
    For i:=1 to n do
    Begin
      k1:=0;k2:=0;
      For j:=1 to m do 
       if A[i,j]<0 then inc(k1)
        else if A[i,j]>0 then inc(k2);
      if (k1>0)and(k2>0) then write(i,' ');
      if k1>max then max:=k1;
    End;
    writeln;
    write('Номера строк с max кол-вом отрицательных = ');
    For i:=1 to n do
    Begin
      k1:=0;
      For j:=1 to m do
       if A[i,j]<0 then inc(k1);
      if k1=max then write(i,' ');
    End;
    readln;
End.