задача на паскале - Матрица,2-х мерный массив

[vdv08]

Матрица K(m,m) cостоит изнулей и единицю. Найти в ней номера (индексы) хотя бы одной строки или хотя бы одного столбца,не содержащих единицы,либо сообщить,что таковых нет.

Зарание спасибо всем кто откликнеться!!!

[eoln]

Поиск всех вариантов

const
  m = 3;
var
  i, j: byte;
  mas: array[1..m, 1..m] of byte;
  naideno, b: boolean;
begin
  randomize;
  naideno := false;
  for i := 1 to m do //заполнение матрицы и вывод на экран
  begin
    for j := 1 to m do
    begin
      mas[i, j] := random (2);
      write(mas[i, j]:2)
    end;
    writeln
  end;

  for i := 1 to m do //поиск по строкам
  begin
    b := false;
    for j := 1 to m do if mas[i, j] = 1 then b := true;
    if not b then
    begin
      writeln('Stroka ', i);
      naideno := true
    end;
  end;

  for j := 1 to m do //поиск по столбцам
  begin
    b := false;
    for i := 1 to m do if mas[i, j] = 1 then b := true;
    if not b then
    begin
      writeln('Stolb ', j);
      naideno := true
    end;
  end;

  if not naideno then //если не найдено
  write('Not found');
  readln
end.