Помогите исправить программу нужно очень срочно!

[Алена]

В целочисленном массиве найти самое часто повторяющиеся число.
Вот код вроде так но он не работает помогите плз!

const c=100;
var n,i,j,k,max,t:integer; a,b:array[1..c] of integer;
begin
redln(n);
for i:=1 to n do
readln(a[i]);
for j:=1 to n do
b[a[j]]:=b[a[j]]+1;
for k:=0 to 9 do
if b[k]>max then max:=b[k];
for t:=0 to 9 do
if b[t]=max then writeln(t);
end.

[zetrix]

Вместо этого:
for j:=1 to n do
b[a[j]]:=b[a[j]]+1;

напишите это:
for j:=1 to n do
b[j]:=b[j]+1;

P.S.: не поверял

[puporev]

Мне кажется, что массив нужно сначала отсортировать например по возрастанию, выявить интервалы равных значений, сравнить интервалы по длине и вывести значение из наиболее длинного интервала. Как писать не знаю.

[zetrix]

Мне кажется, что массив нужно сначала отсортировать например по возрастанию, выявить интервалы равных значений, сравнить интервалы по длине и вывести значение из наиболее длинного интервала. Как писать не знаю

Можно - как вариант, но вариант выше - должен работать и проще.