Определить количество строк, не содержащих ни одного нулевого элемента

var
  mas : array[1..100, 1..100] of integer;
  i, j, N, M, count : byte;
  
begin
  Randomize;
  Write('Введите размерность матрицы: ');
  Read(N, M);
 
// Формируем матрицу, используя генератор случайных чисел
  for i:= 1 to N do
    begin
      for j:= 1 to M do
        mas[i, j]:= random(100);
    end;
 
// Выводим матрицу на печать   
  for i:= 1 to N do
    begin
      for j:= 1 to M do
      Write(mas[i, j]:4);
      Writeln;
    end;
   
// Находим количество строк, содержащих 0 
   count:= 0;        
   for i:= 1 to N do
    begin
      for j:= 1 to M do
        if mas[i, j] = 0 then begin
           count:= count + 1;       // счетчик строк, содержащих 0
           break;
        end;
    end;
    
    count:= N - count;   // находим количество строк, не содержащих 0
    Writeln;
    Writeln(count);
 end.