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

Формулировка задачи:

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

Решение задачи: «Подсчет количества разных элементов массива»

Листинг программы

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.

Объяснение кода листинга программы

Объявляется константа n со значением 10.
Объявляется массив a размерности от 1 до n с элементами типа integer.
Объявляются переменные i, j и count типа integer.
Объявляется переменная fl типа boolean.
Выводится сообщение Вывод массива:.
Выводится символ [.
Для каждого значения i от 1 до n выполняются следующие действия:
- Генерируется случайное число от -8 до 7 и присваивается i-ому элементу массива a.
- Выводится значение i-ого элемента массива a.
Выводится символ ].
Устанавливается значение переменной count в 0.
Для каждого значения i от 1 до n выполняются следующие действия:
- Устанавливается значение переменной fl в true.
- Для каждого значения j от 1 до n выполняются следующие действия:
  - Если j-ый элемент массива равен i-ому элементу массива и j не равно i, то значение fl устанавливается в false.
- Если значение fl равно true, то увеличивается count на 1.
Выводится количество уникальных элементов массива a.