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

{$mode objfpc}
uses Crt;
 
const n=5; m=6;
type
  Vector = array[1 .. m] of integer;
  Matrix = array[1 .. n] of Vector;
 
procedure CreateMatrix(var mx : Matrix);
var i, j : integer;
begin
  randomize;
  for i := 1 to n do
    for j := 1 to m do mx[i, j] := random(20);
end;
 
procedure PrintMatrix(mx : Matrix);
var
  v : vector;
  x : integer;
begin
  for v in mx do
  begin
    for x in v do write(x:3);
    writeln;
  end;
end;
 
function CheckZero(row : vector) : boolean;
var x : integer;
begin
  result := true;
  for x in row do result := result and (x <> 0);
end;
 
function MaxVal(mx : Matrix) : integer;
var
  v : vector;
  x : integer;
  s : set of byte;
begin
  result := -(maxint - 1);
  s := [];
 
  for v in mx do
    for x in v do
      if (X in s) and (X > result) then result := x
      else s := s + [X];
end;
 
var
  mx : Matrix;
  v : Vector;
  NonZero : integer = 0;
  Max : integer;
begin
  CreateMatrix(mx);
  PrintMatrix(mx);
  for v in mx do if CheckZero(v) then Inc(NonZero);
  writeln('non-zero rows count: ', NonZero);
 
  max := MaxVal(mx);
  if max = - (maxint - 1) then writeln('no duplicates in matrix')
  else writeln('max duplicated value = ', max);
end.