Задача на массив, Я в тупике Опции

[Ученик]

Я в панике.
Задача: дан одномерный массив, для всех видов элементов вывести, сколько раз они встречаются в массиве, повторных выводов быть не должно.
Меня клинит никак не могу организовать "повторных выводов быть не должно".
Пока дальше этого не ушол:

var a:array[1..10];
k,i,j,n:integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if a[i]=a[j] then inc(k);
writeln('элемент',a[i],'встречается',k,'раз');
end;
end.

Христа ради поделитесь свежей идеей
мож я чо изначально не так делаю
Заранее ОГРОМНОЕ СПАСИБО.

М

1. Пожалуйста, при публикации программного текста используй теги. 2. Поменьше эмоций в названии. Исправлено. Lapp

[renesko1]

И вправду, гораздо лучше моего метода )

Сообщение отредактировано: renesko1 - 2.12.2008 21:22

[Lapp]

И вправду, гораздо лучше моего метода )

Спорно.
Везде свои преимущества .

Несколько раз я редактировал прогу - надеюсь, сейчас ок. Если кто может - проверьте, плз..