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

const k=5;
var n,s:array[1..k] of integer;
    i,i2,i3:integer;
begin
for i:=1 to k do
   read(n[i]);
for i:=1 to k do
   for i2:=1 to k do
      if n[i]=n[i2] then
         s[i]:=s[i]+1;
 
for i:=1 to k do
   if s[i]>i3 then
      i3:=s[i];
writeln(i3);
end.

const
N=10;
var
thearr:array[1..N]of integer;
i,j:integer;
count:integer;
maxCount:integer;
maxChois:integer;
begin
    for i:=1 to N do
        thearr[i]:=random(N);
    for i:=1 to N do
        write(thearr[i],' ');
    writeln;
    maxCount:=0;
    maxChois:=0;
    for i:=1 to N do
    begin
        count:=1;
        for j:=1 to N do
        begin
            if((thearr[i] = thearr[j])and(i<>j))then
            begin
                count:=count+1;
            end;
        end;
        if(count > maxCount)then
        begin
            maxCount:=count;
            maxChois:=thearr[i];
        end;
    end;
    writeln('число = ',maxChois,' встречается ',maxCount,' раз.');
    
end.

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.