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

const RowCount = 10;
      ColumnCount = 10;
      MinValue = -10;
      MaxValue = 10;
 
type TasksMatrix = array[1..RowCount,1..ColumnCount] of Integer;
     TasksArray = array[1..RowCount] of Integer;
 
procedure FillMatrixWithRandomValues(var matrix: TasksMatrix);
var i,j: Integer;
begin
    Randomize;
    for i := 1 to RowCount do
    begin
        for j := 1 to ColumnCount do
        begin
            matrix[i, j] := Random(MaxValue-MinValue+1) + MinValue;
        end
    end
end;
 
procedure Print(outputMatrix: TasksMatrix);
var i,j: Integer;
begin
    for i := 1 to RowCount do
    begin
        for j := 1 to ColumnCount do
        begin
            Write (outputMatrix[i, j]:4)
        end;
    WriteLn
    end;
    WriteLn
end;
 
function HasNullValue (inputMatrix: TasksMatrix; row: Integer): Boolean;
var nullValue: Boolean;
    j: Integer;
begin
    nullValue := false;
    for j := 1 to ColumnCount do
    begin
        if inputMatrix[row, j] = 0 then
        begin
            nullValue:= true;
            Break
        end
    end;
    result := nullValue
end;
 
 
function GetNullRowsCount(inputMatrix: TasksMatrix): Integer;
var row: Integer;
    nullRows: Integer;
begin
    nullRows := 0;
    for row := 1 to RowCount do
    begin
        if HasNullValue(inputMatrix, row) then
        begin
            Inc(nullRows);
        end
    end;
    result := nullRows
end;
 
procedure PrintNullRows(count: Integer);
begin
    if count = 0 then
    begin
        WriteLn('Row with null miss')
    end
    else
    begin
        WriteLn('Row with null: ',count);
    end
end;
 
function FindMatrixMaxElement(inputMatrix: TasksMatrix): Integer;
var i,j: Integer;
    max: Integer;
begin
    max := inputMatrix[1, 1];
    for i := 1 to RowCount do
    begin
        for j := 1 to ColumnCount do
        begin
            if inputMatrix[i, j] > max then
            begin
                max := inputMatrix[i, j];
            end
        end
    end;
    result := max;
end;
 
function MaxCount(max: Integer; inputMatrix: TasksMatrix): Integer;
var i,j: Integer;
    count: Integer;
begin
    count := 0;
    for i := 1 to RowCount do
    begin
        for j := 1 to ColumnCount do
        begin
            if inputMatrix[i,j] = max then
            begin
                Inc(count)
            end
        end
    end;
    result := count
end;
 
procedure PrintMaxCount(count: Integer);
begin
    if count = 1 then
    begin
        WriteLn('Max occurs once')
    end
    else
    begin
        WriteLn('Max occurs ',count,' times');
    end
end;
 
var matrixA: TasksMatrix;
 
begin
    FillMatrixWithRandomValues(matrixA);
    Print(matrixA);
    GetNullRowsCount(matrixA);
    PrintNullRows(GetNullRowsCount(matrixA));
    PrintMaxCount(MaxCount(FindMatrixMaxElement(matrixA),matrixA));
    ReadLn
end.

program p;
const n=10; m=20;
type titem=integer;
     tarray=array[1..n, 1..m] of titem;
var a:tarray;
    NonZero:integer;
    Max:titem;
procedure InputArray(var a:tarray);
var i,j:ibteger;
begin
     for i:=1 to n do
     begin
          for j:=1 to m do
          begin
               write('a[',i,',',j,']='); readln(a[i,j];
          end;
     end;
end;
function GetNonZero(a:tarray):integer;
var i,j:integer;
    r:integer;
    f:boolean;
begin
     r:=0;
     for i:=1 to n do
     begin
          f:=true;
          for j:=1 to m do
          begin
               if a[i,j]=0 then f:=false;
          end;
          if f then r:=r+1;
     end;
     GetNonZero:=r;
end;
procedure GetMaxUsed(a:tarray; var r:titem);
var i,j,t,z:integer;
    c:integer;
    f:boolean;
begin
     f:=true;
     for i:=1 to n do
     begin
          for j:=1 to m do
          begin
               c:=0;
               for t:=1 to n do
               begin
                    for z:=1 to m do
                    begin
                         if a[i,j]=a[t,z] then c:=c+1;
                    end;
               end;
               if c>1 then
               begin
                    if f then r:=a[i,j]; f:=false;
                    if a[i,j]>r then r:=a[i,j];
               end;
          end;
     end;
end;
begin
     InputArray(a);
     NonZero:=GetNonZero(a);
     writeln('Строк без нолей ', NonZero);
     GetMaxUsed(a, Max);
     writeln('Максимальное число, использованное больше 1 раза ', Max);
end.