В массиве A[N,N] содержится ровно m единиц, остальные — нули. Проверить, есть ли в массиве хотя бы одна строка или столбец, не содержащих единиц — Pascal(Паскаль)

program PascalGuru;

type
  cisla = 0 .. 1;

var
  A: array [1 .. 50, 1 .. 50] of cisla;
  i, j, n: integer;
  b, esti: boolean;

  { ------------------------------------------- }
begin
  write('N= ');
  readln(n);

  writeln('Vvedite sam massiv iz "0" i "1":');
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;

  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:8);
  end;
  { ****************************************** }
  writeln;
  writeln;
  writeln('Ne soderjat "1": ');

  esti := false;

  for i := 1 to n do
  begin
    b := true;
    for j := 1 to n do
      if A[i, j] = 1 then
        b := false;
    if b then
    begin
      writeln(i, ' stroka');
      esti := true;
    end;
  end;

  for j := 1 to n do
  begin
    b := true;
    for i := 1 to n do
      if A[i, j] = 1 then
        b := false;
    if b then
    begin
      writeln(j, ' stolbec');
      esti := true;
    end;
  end;

  if not esti then
    writeln('Ni strok, ni stolbcov takix NET!');

  readln;

end.