max:=0;
  for i := 1 to n do begin
    cnt:=0;
    for j := i+1 to n do begin
       if A[i]=A[j] then
       cnt:=cnt+1;
     end;
     if max<cnt then begin
       max:=cnt;
       el:=A[i];
     end;
  end;
.... и тут вывести результат el