Подпрограмма: найти максимальный элемент из чисел, встречающихся в заданной матрице более одного раза

Uses crt;
CONST N=10;MAX=99;
TYPE
    Tmatr=Array[1..N,1..N]Of Integer;
    Tmas=Array[1..MAX]Of Integer;
VAR
   i,j,k:integer;
   a:TMatr;
   b:TMas;
 
BEGIN
clrscr; randomize;
For i:=1 To N Do Begin
    For j:=1 To N Do Begin
        a[i,j]:=Random(MAX)+1;
        k:=a[i,j]; Inc(b[k]);
        write(k:4);
    End;
    Writeln;
End; Writeln; j:=0;
Writeln('chisla povtoryaushiysa bolshe 1-go raza:  ');
For i:=1 To Max Do Begin
    If b[i]>1 Then write(i,', ');
    If i>j Then j:=i;
End; Writeln;
Writeln('maksimalnoe = ',j);
readln;
END.

Function MaxMatr(B:TVec):Integer;
Var i,max:Integer; {внутренние переменные для создания циклов или для других целей}
Begin {тело функции}
For i:=1 To N Do If B[i]>max Then max:=B[i]; {цикл по массиву}
MaxMatr:=max; {функция вернёт масимальное массива который мы ей передали}
End;

Procedure SozdMatr(Var A:Tmatr);
Var i.j:Integer;
Begin
For i:=1 to N Do
  For j:=1 To N Do A[i,j]:=Random(100);
End;

Var a:Tmatr; 
maks:Integer;
BEGIN {Главная программа}
SozdMatr(A);
maks:=MaxMatr(A);
Writeln('максимальное число = ',maks);