Подсчет количества разных элементов массива - Pascal

const
  n=10;
var
  a:array[1..n]of integer;
  i,j,count:integer;
  fl:boolean;
begin
  {Г§Г*Г¤Г*ГҐГ¬ ГЁ âûâîäèì Г¬Г*Г±Г±ГЁГў}
  writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(16)-8;
    write(a[i],' ')
  end;
  writeln(']');
  {êîëè÷åñòâî Г°Г*Г§Г*ûõ Г·ГЁГ±ГҐГ«}
  count:=0;
  for i:=1 to n do
  begin
    fl:=true;
    for j:=1 to n do
      if (a[j]=a[i])and(j<>i) then
        fl:=false;
    if fl then
      inc(count)
  end;
  writeln('Êîëè÷åñòâî Г°Г*Г§Г*ûõ Г·ГЁГ±ГҐГ«: ',count)
end.