Как определить сколько разных городов в массиве? - Free Pascal

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

Есть массив городов (mas[i].gorod): Питер Москва Питер Москва Москва Питер Москва Ростов-на-Дону Питер Москва Ростов-на-Дону Ростов-на-Дону В массиве всего три разных города : Ростов-на-Дону, Москва и Питер. Как определить, что их всего три? То есть, как определить сколько

разных

городов в массиве?

Решение задачи: «Как определить сколько разных городов в массиве?»

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

var X : R; // R - базовый тип для массива...
begin
  with TStringList.Create do
  try
    Duplicates := dupIgnore;
    Sorted := True;
    for X in mas do Add(X.gorod);
    writeln(Count); // <--- Выведет именно 3
  finally
    Free;
  end;
end;

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

В данном коде используется язык программирования Free Pascal.

Создается новый объект TStringList с помощью метода Create.
В цикле по каждому элементу массива mas добавляется значение поля gorod в TStringList.
Перед выводом количества элементов в TStringList, устанавливается свойство Duplicates в dupIgnore, чтобы игнорировать дубликаты.
Выводится количество элементов в TStringList с помощью writeln(Count).
В конце освобождается память с помощью метода Free. В данном случае, в массиве mas есть три уникальных значения: Москва, Санкт-Петербург, Казань.