В целочисленном массиве найти число, повторяющееся максимальное количество раз

uses crt;
var n,i,j,k,l:byte;
    c:longint;
begin
clrscr;
repeat
write('n<100  n=');
readln(n);
until n in [1..99];
c:=0;
for i:=0 to n do
for j:=0 to n div 2 do
for k:=0 to n div 5 do
for l:=0 to n div 10 do
if i+2*j+k*5+l*10=n then c:=c+1;
writeln('Число способов оплаты=',c);
readln
end.

uses crt;
const max=20;
type mas=array[1..max] of integer;
procedure Vyvod(var v:mas;x:byte);
var i:byte;
begin
for i:=1 to x do
write(v[i]:4);
writeln;
end;
var a:mas;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
writeln('Сортировка массива:');
for i:=1 to n-1 do
 begin
  for j:=1 to n-1 do
  if a[j]>a[j+1] then
   begin
    x:=a[j];
    a[j]:=a[j+1];
    a[j+1]:=x;
   end;
  Vyvod(a,n);
  delay(1000);
 end;
readln
end.

uses Crt;
const nmax=20;
var a:array[1..nmax] of integer;
    n,i,j,k,l,max,imax:integer;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный масив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=1;max:=1;imax:=a[1];
while i<=n do
 begin
  k:=1;
  for j:=n downto i+1 do
  if a[j]=a[i] then
   begin
    k:=k+1;
    for l:=j to n-1 do
    a[l]:=a[l+1];
    dec(n);
   end;
  if k>max then
   begin
    max:=k;
    imax:=a[i];
   end;
  inc(i);
 end;
writeln('Самое частое число=',imax,' встречено ',max,' рз.');
readln
end.