Матрицы

[Юлёк*]

Даны три матрицы.Вывести на экран ту из них,в которой наибольшее число строк,содержащих одни нули(если таких матриц несколько,вывести их все)
Заранее огромное спасибо

[Stilet]

Наработки есть?

[Юлёк*]

Пока нет ничего... Просто решение срочно нужно, а я долго очень доходить буду...

[ОДИНОЧЕСТВО В СЕТИ]

{опредление количества строк матрицы содержащих одни нули}
{написано в блокноте}
uses crt;
type matr = array[1..100,1..100] of integer;
var x,y,z:matr;
    n1,n2,n3:integer;

function onl(a:matr;n:integer):integer;{кол-во строк по условию задачи}
var 
  i,j,k,count:integer;
begin
  count:=0
  for i:= 1 to n do
    begin
      k:=0;
      for j:= 1 to n do 
        if a[i,j]=0 then inc(k);
      if k=n then inc(count);
    end;
  result:=count;
end;

procedure output(a:matr;n:integer);{вывод матрицы}
var i,j:integer;
begin
  for i:=1 to n do
    begin   
      for j:=1 to n do
        write (a[i,j]);
      writeln;
    end;
end;

Procedure inputM(a:matr;n:integer); {ввод матрицы}
var i,j:integer;
begin
  for i:=1 to n do
  for j:=1 to n do begin
    writeln('[,i,';',j,']=')
    readln(a[i,j]);
  end;
end;

begin
 writeln('---Made in programmersforum.ru---');
 writeln('input n1');
 readln(n1); //размерность 1 матрицы 
 inputm(x,n1);
 writeln('input n2');
 readln(n1);//размерность 2 матрицы 
 inputm(y,n2);
 writeln('input n3');
 readln(n3); //размерность 3 матрицы 
 inputm(z,n3);
 clrscr;
 writeln('---------------');
 writeln('---Matrix 1---');
 output(x,n1);
 writeln('---Matrix 2---');
 output(y,n2);
 writeln('---Matrix 3---');
 output(z,n3);
 writeln('-------------');
 if (onl(x,n1)>=onl(y,n2)) and (onl(x,n1)>=onl(z,n3)) then
   output(x,n1);
 if (onl(y,n2)>=onl(x,n1)) and (onl(y,n2)>=onl(z,n3)) then
   output(y,n2);
 if (onl(z,n3)>=onl(y,n2)) and (onl(z,n3)>=onl(x,n1)) then
   output(z,n1);
 Writeln('-----end-----');
 Writeln('press Enter to quit');
 Readln;
end.