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

[Ученик]

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

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