Pascal: Наиболее часто встречающееся число в массиве.

[MaGWaY_minsk]

Люди, помогите с решением задачки. Завтра сдавать, а из варианта эта задача не готова. Сделал всё, кроме неё.=(
Выручите плиз=(

В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся числа. Если таких чисел несколько, то определить наименьшее из них.

[Min]

const N=20;
var a:array[1..N] of integer;
count,maxEl,maxCount,curEl:integer;
i,temp:integer;
check:boolean;
begin
writeln('VVedite kol-vo:');
readln(count);
for i:=1 to count do
begin
writeln('vvedite ',i,' element:');
readln(a[i]);
end;

{сортировка}
check:=true;
while check do
begin
check:=false;
for i:=2 to count do
if a[i-1]>a[i] then
begin
temp:=a[i-1];
a[i-1]:=a[i];
a[i]:=temp;
check:=true;
end;
end;
{конец сортировки}

temp:=1;
curEl:=a[1];
MaxCount:=1;
MaxEl:=a[i];
for i:=2 to count+1 do
if i>count then
begin
if temp>MaxCount then MaxEl:=a[count];
end
else
begin
if a[i]<>curEl then
begin
if temp>MaxCount then
begin
MaxCount:=temp;
MaxEl:=a[i-1];
end;
temp:=1;
CurEl:=a[i];
end
else inc(temp);
end;
writeln(MaxEl);
readln;
end.

[Xcopy]

Вот мой вариант:

program zadacha;
uses crt;
var
mas: array [1..15] of integer;
i,a,b,c,j: integer;
check: boolean;
begin clrscr;
randomize;

for i:=1 to 15 do
begin
mas[i]:=random(15);
write(' ',mas[i]);
end;
for j:=1 to 15 do
for i:=1 to 15 do
begin
if mas[i]>mas[i+1] then
begin
a:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=a;
end;
end;
writeln('');
for i:=1 to 15 do
write(' ',mas[i]);
textcolor(yellow);
a:=0; j:=0; b:=0; c:=0;
for i:=1 to 15 do
begin
if mas[i]=mas[i+1] then
begin
check:=true;
if check=true then
begin
a:=a+1;
j:=mas[i];
end;

end
else
begin
check:=false;
if a>b then
begin
b:=a;
c:=j;
a:=0;
j:=0;
end;
end;

end;
writeln('');
writeln(c);
readkey;
end.