Найти количество различных членов одномерного массива - Free Pascal

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

1. Дан целочисленный массив А, содержащий n элементов (n 20). Найти количество различных членов последовательности.

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

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

uses fgl, types;
type t = specialize tfpgmap<integer, integer>;
var m : t;
// ...
    m := t.create;
    m.sorted := true;
    m.duplicates := dupignore;
    for i in x do m.add(i);
    writeln('Разных значений: ', m.count);

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

Используется модуль fgl (используется для работы с массивами).
Определен тип t, который является специализацией tfpgmap<integer, integer>.
Объявлена переменная m типа t.
Вызывается метод create для инициализации массива m.
Устанавливается свойство sorted в true, чтобы отсортировать элементы массива.
Устанавливается свойство duplicates в dupignore, чтобы игнорировать дубликаты при добавлении элементов.
Запускается цикл for i in x, где x — это некоторый список значений.
Для каждого значения i в цикле вызывается метод add для добавления элемента в массив m.
Выводится сообщение 'Разных значений: ' и количество различных элементов в массиве m с помощью свойства count.