Определить максимальное количество одинаковых элементов массива

http://www.cyberforum.ru/post3913127.html 

program _array;
 
const
 
  N=20;
  
type
 
 TArray=Array [1..N] of integer;
 
var
 
 
  Mas:TArray;
  count,i:integer;
  
  
  
Procedure fillArray(var aMas:TArray;Maxval:integer);
 var
  i:integer;
begin
 for i:=1 to N           do begin
                            aMas[i]:=random(Maxval);
                            write(aMas[i],' ');
                            end;
end;
 
function FindMatch(var aMas:Tarray;index:integer):integer;
 var
  i,count:integer;
begin
 count:=0;
 for i:=1 to N do
 if mas[i]=mas[index] then inc(count);
 FindMatch:=count;
end;
 
Begin
{ fill array }
 Writeln('Сформирован массив: ');
 randomize;
 FillArray(Mas,100);
 
{ process. & output  }
 count:=0;
 for i:=1 to N do
 if findmatch(mas,i)>count 
 then count:=findmatch(mas,i);
 writeln();
 Writeln('максимальное количество одинаковых элементов: ',count);
End.