Вопрос по одномерному массиву (delhi)

[Ямерт]

Дан одномерный массив а1.....аn. Найти число, которое максимальное количество раз повторяется в элементах массива.

[bunny]

http://www.programmersforum.ru/showthread.php?t=70310

[Ямерт]

программу сделал, работает исправно.
возможно какнибудь упростить ее?)))

const n=25;
var
i,j,p,m:integer;
a:array [1..n] of integer;
b:array [1..n] of integer;

begin
for j:=1 to n do
 begin
  a[j]:=random(20);
  write(a[j], ' ');
  b[j]:=-1;
 end;
writeln;
for i:=1 to n do
begin
  for p:=1 to n do
  if a[i]=a[p] then b[i]:=b[i]+1;
end;
for i:=1 to (n-1) do
begin
 if b[i]>b[i+1] then m:=b[i];
 end;
 writeln;
 for i:=1 to n do
 if b[i]=m then break;
  write(a[i],' the most repeated number');

readln;
end.