Для матрицы А (4 строки;5 столбцов) вывести те строки, в которых есть нулевые элементы или вывести сообщение «нет строк с нулевыми элементами». Для проверки наличия нулевых элементов в произвольной строке матрицы использовать процедуру — Pascal(Паскаль)

const
  M = 4;
  N = 5;

var
  i, j, s: integer;
  A: array [1 .. M, 1 .. N] of integer;

procedure Create_Mass;
begin
  Randomize();
  for i := 1 to M do
  begin
    for j := 1 to N do
    begin
      A[i, j] := Random(10);
    end;
  end;
end;

procedure Find(str: integer);
var
  stop: boolean;
  kol: integer;
begin
  stop := false;
  kol := 0;
  for i := 1 to M do
  begin
    if (A[i, str] = '0') and (stop = false) then
    begin
      stop := true; { если есть хоть один ноль, то берем всю строку }
      for j := 1 to M do
      begin
        Write(A[j, str], ' ');
        inc(kol);
      end;
    end;
  end;
  if kol = 0 then
    Writeln('Нулевых элементов в строке ', str, ' не найдено!');
end;

begin
  Create_Mass;
  Writeln('Введите строку 1-4 для поиска в ней нулевых элементов: ');
  Readln(s);
  Find(s);

end.