Подсчет одинаковых элементов Опции

[eden]

Подскажите как посчитать одинаковые элементы в массиве.

[GLuk]

Пожалуйста, что называется вариант решения "в лоб":  :)

Код

Program EqualElements;
Uses
   Crt;
Const
    N = 100;
Var
  a:array[1..N] of Byte;
  i,j:Word;
  Cnt:Word;
Begin
    ClrScr;
    Randomize;
    For i:=1 to N do a[i]:=Random(30);
    For i:=1 to N do
    begin
         Cnt:=0;
         For j:=1 to N do If a[i]=a[j] then Inc(Cnt);
         WriteLn('ќ«Ґ¬Ґ­в ',i,' ўбваҐз Ґвбп ',Cnt,' а §.');
    end;
End.