В целочисленном массиве найти число, повторяющееся максимальное количество раз. Если таких чисел несколько, то одно из них.- Pascal(Паскаль)

program fd;
var i,j,ch,t,max,n:integer;
a:array[1.20] of integer;
begin
randomize;
Writeln('введите длину массива');
readln(n);
for i:=1 to n do
a[i]:=random(10);
t:=0;
max:=0;
for i:=1 to n do 
 begin
  for j:=1 to n do
   begin 
     if a[i]=a[j] then inc(t);
   end;
   if t>max then
    begin 
     max:=t;
     ch:=a[i];
     t:=0;
    end;
  end;
writeln('число ',ch,' повторяется ', max , ' раз');
readln;
end.