Массив,Паскаль Срочно!!!

[Астасья]

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

не получается    
вот что я написала



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

[tig81]

вот что я написала

Вы хотя бы ссылку на автора бы указали.
КЛАЦ

[Астасья]

следующий раз так и сделаю(простро легче было скопировать,тк надо срочно)
так вы поможете