Задание
Дан целочисленный массив размера N. Определить максимальное количество его одинаковых элементов.

не получается (IMG:style_emoticons/default/sad.gif) (IMG:style_emoticons/default/sad.gif) (IMG:style_emoticons/default/sad.gif)
вот что я написала


program masiv;uses crt;
const n=10;
var a:array [1..n] of integer;
i,s,p,f:integer;
begin {заполняем массив }
s:=0;
for i:=1 to n do
begin
a[i]:=random(9);
write(a[i]:2);
end; writeln;
while f=0 do
begin {сортируем по возрастанию}
f:=1;
for i:=1 to (n-1) do
if a[i]>a[i+1] then
begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
f:=0;
end;end;
for i:=1 to n do
begin {выводим отсартированый массив}
write(a[i]:2);
end;writeln;
begin {что-то не понятное}
for i:=1 to (n-1) do
if a[i]=a[i+1] then
s:=s+1;
end;
writeln('максимальное количество одинаковых элементов.=',s);
end.
?????????????????????????ПОМОГИТЕ!!!