Даны три целые матрицы размером nxm. Вывести на экран ту из них, где больше нулевых строк

var  A,B,C: mas;
 
//процедура ввода матрицы
procedure matinput(var X: mas);
var i,j: integer;
begin
  for i:= 1 to n do
    for j:= 1 to m do
      read(X[i,j])
end;
 
//процедура вывода матрицы
procedure matoutput(var X: mas);
var i,j: integer;
begin
  for i:= 1 to n do
    for j:= 1 to m do
      write(X[i,j],' ')
end;
 
//Функция подсчета количества нулевых строк в матрице  
function count(var X: mas): integer;
var i, j, k: integer;
    b: boolean;
begin
  k:= 0;
  for i:= 1 to n do
  begin
    b:= true;
    for j:= 1 to m do
      begin
        if X[i,j] <> 0 then
          break;
        if j = m then
          k:= k + 1
      end
  end;
  count:= k
end;
 
begin
  writeln('Введите матрицу A: ');
  matinput(A);
  writeln('Введите матрицу B: ');
  matinput(B);
  writeln('Введите матрицу C: ');
  matinput(C);
  
  if (count(A) ? count(B)) and (count(A) ? count(C)) then
    begin
      matoutput(?)
    end
  else 
  if (count(B) ? count(A)) and (count(B) ? count(C))
    then matoutput(?)
  else matoutput(?)
end.

  if (count(A) >= count(B)) and (count(A) >= count(C)) then
    begin
      matoutput(A)
    end
  else 
  if (count(B) > count(A)) and (count(B) > count(C))
    then matoutput(B)
  else matoutput(C)

function count(var X: mas): integer;
var i, j, k: integer;
    b: boolean;
begin
  k:= 0;
  for i:= 1 to n do
  begin
    b:= true;
    for j:= 1 to m do
      begin
        if X[i,j] <> 0 then
          break;
        if j = m then
          k:= k + 1
      end
  end;
  count:= k
end;