Вывести на экран ту из матриц, в которой наибольшее число строк, содержащих одни нули - Turbo Pascal (29897)

uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of integer;
procedure matrix(var a:mtr;var m,n:byte;c:char);
var i,j:byte;
begin
writeln('Введите размеры матрицы ',c);
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы матрицы построчно');
for i:=1 to m do
for j:=1 to n do
 begin
  write('el[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
end;
procedure print(a:mtr;m,n:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
end;
function zero(a:mtr;m,n:byte):byte;
var i,j,k,z:byte;
begin
k:=0;
for i:=1 to m do
 begin
  z:=0;
  for j:=1 to n do
  if a[i,j]=0 then z:=z+1;
  if z=n then k:=k+1;
 end;
zero:=k;
end;
 
 
var a,b,c:mtr;
    ma,na,mb,nb,mc,nc,za,zb,zc,mx:byte;
begin
clrscr;
matrix(a,ma,na,'A');
matrix(b,mb,nb,'B');
matrix(c,mc,nc,'C');
writeln('Исходные матрицы:');
print(a,ma,na,'A');
za:=zero(a,ma,na);
mx:=za;
writeln('Количество строк из 0=',za);
write('Press Enter');
readln;
print(b,mb,nb,'B');
zb:=zero(b,mb,nb);
if zb>mx then mx:=zb;
writeln('Количество строк из 0=',zb);
write('Press Enter');
readln;
print(c,mc,nc,'C');
zc:=zero(c,mc,nc);
if zc>mx then mx:=zc;
writeln('Количество строк из 0=',zc);
write('Press Enter');
readln;
writeln('Матрицы в которых число строк из нолей максимально');
if za=mx then print(a,ma,na,'A');
if zb=mx then print(b,mb,nb,'B');
if zc=mx then print(c,mc,nc,'C');
readln;
end.