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

uses  Crt;
const n=5; m=6;
type  Tmatr=array[1..n,1..m] of integer;
function F1(aa:Tmatr;d:integer;ai,aj:integer):boolean;
var   x,y:integer;
      e:boolean;
begin
      e:=false;
       for y:=aj+1 to m do
        if aa[ai,y]=d then
         begin
           e:=true;
           Break
         end;
       if not e then
        for x:=ai+1 to n do
         for y:=1 to m do
          if aa[x,y]=d then
           begin
             e:=true;
             Break;
           end;
        F1:=e;
end;
var   a:Tmatr;
      i,j,t,k,max:integer;
begin
      ClrScr;
      Writeln('Matrix A:'); Writeln; Randomize;
      for i:=1 to n do
       begin
         for j:=1 to m do
          begin
            a[i,j]:=Random(50);
            Write(a[i,j]:4);
          end;
         Writeln;
        end;
       Writeln;
      k:=0; i:=1;
        repeat
           t:=0;
           for j:=1 to m do
            if a[i,j]=0 then Inc(t);
           if t=0 then Inc(k);
           Inc(i);
        until i>n;
       max:=-MaxInt;
        for i:=1 to n do
         for j:=1 to m do
          if a[i,j]>max then
           if F1(a,a[i,j],i,j) then max:=a[i,j];
      if k=0
       then Writeln('Net strok bez noley')
       else Writeln('Bez noley ',k,' strok');
      if max=-MaxInt
       then Writeln('Net max bolee odnogo raza')
       else Writeln('Max bolee odnogo raza = ',max);
      ReadKey;
end.