Помогите найти ошибки.

 program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  Windows,
  SysUtils;
 
const n=5;
      m=5;
 
type telem=integer;
     mas=array [1..n] of telem;
     matr=array [1..n] of mas;
var a: matr;
    error_in: boolean;
    exit_: char;
    choice: integer;
 
Function menu :integer;
    Begin
    writeln ('1. Посчитать количество строк,не содержащих ни одного нудевого элемента.');
    writeln ('2. Найти максимальное из чисел,встречающихся более одного раза.');
    writeln ('3. Завершение работы.');
    writeln;
    repeat
      write ('Ваш выбор: ');
      readln (choice);
      error_in:=(choice<1) or (choice >3);
      if error_in then writeln ('Ошибка ввода!')
    until not error_in;
    menu:=choice;
    end;
 
Procedure InputMatr (var a:matr);
var i,j: integer;
begin
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20)-5;
     write (a[i,j]:4);
    end;
   writeln
  end
end;
 
Function kol(var a:matr):integer;
var i,j,kol:Integer; flag:Boolean;
Begin
kol:=0;
for i:=1 to n do
begin
  flag:=false;
 
  for j:=1 to m do
    if a[i,j]=0 then
      flag:=true;
  
  if flag=false then
    kol:=kol+1;
end;
end;
 
Function max(var a:matr):integer;
Var i,j:integer; max:real;
Begin
 max:=0.1;
 for i:=1 to n do
  for j:=1 to m do
   If (a[i,j]=max) and ((max=0.1) or (a[i,j]>max)) then
      max:=a[i,j];
 
end;
 
 
 
 
BEGIN
 setconsolecp(1251);
 setconsoleoutputcp(1251);
 
 InputMatr (a);
 REPEAT
  case menu of
   1: writeln ('Колличество строк,не содержащих ни одного нулевого элемента:',Kol(a));
   2: writeln ('Максимальное,встречающиеся более одного раза:',max(a));
  end;
 
  if choice<>3 then
     begin
          write ('Завершить работу? (Y/N)');
          readln (exit_);
          writeln
     end;
UNTIL (exit_='y') or (exit_='Y') or (choice=3)
END.

Function max(var a:matr):real;
Var i,j:integer; m:real;
Begin
 m:=a[1,1];
 for i:=1 to n do
  for j:=1 to m do
   If a[i,j]>max then m:=a[i,j];
 max:=m
end;

type mas=array [1..m] of integer; // у вас описывалась матрица NxN
     matr=array [1..n] of mas;
...
Function kol(var a:matr):integer;
var i:Integer;
Function YesNull(Line:Mas):boolean;
 var i:integer;
 begin
  YesNull:=false;
  for i:=1 to m do
    if Line[i]=0 then
     begin YesNull:=true; break end;
 end;
Begin
Result:=0;
 for i:=1 to n do
  if not YesNull(a[i]) then inc(Result)
end;
Function max(var a:matr):integer;
Var i,j:integer; maxEl:integer;
Function Count(A:Matr;El:integer):integer;
 var i,j:integer;
 begin
  Result:=0;
  for i:=1 to n do
   for j:=1 to m do
    if A[i,j]=El then inc(Result);
 end;
Begin
 Result:=-100;
 for i:=1 to n do
  for j:=1 to m do
   If (a[i,j]>Result) and (Count(a,a[i,j])>1) then Result:=a[i,j];
end;