Поиск максимального элемента в массиве,нахождение "частого" числа,и кол-ва его повторений. Опции

[Andrewshkovskii]

Дан одномерный массив,надо найти его максимальный элемент(сделано),после чего найти элемент,который повторяется чаще всех остальных,и найти сколько раз он повторяется(с этим и пробелмы..)
Никак не могу реализовать алгоритм.я так понимаю там нужно 3 массива ,1 массив с числами.2ой массив это какое число повторилось,а 3ий сколько раз,потом их отсортировать..ВОт реализовать не могу никак=(

program test;
 uses crt;
 const
 n=10;
 type
 mas2 = array [1..n] of integer;
 mas = array [1..n] of integer;
 var
 i,max,p:integer;
 a:mas;
 c:integer;
 begin
  clrscr;
  for i:=1 to n do
   begin
    write('A[',i,']=');read(a[i]);
   end;
   max:=a[1];
   for i:=1 to n do
    begin
     if max<a[i] then
      max:=a[i];
    end;
    p:=0;
     for i:=1 to n do
      begin
       if a[i]=a[i+1] then
        С[i]:=a[i];
        p:=p+1;
       end;
    writeln(max);
      writeln©;
      writeln(p);
    readkey;
    end.

ну тут не правильно...помогите или подскажите как надо сделать...