Вывести фамилии людей, живущих в разных городах по одинаковым адресам - Turbo Pascal

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

В файле содержаться адреса n человек. Вывести фамилии людей, живущих в разных городах по одинаковым адресам, или сообщить что таких людей нет. Создать новый файл, в который скопировать данные из первого файла, упорядоченные по фамилиям. В своем решении обязательно использовать процедуры или функции. Поразмышляв я решила что нужно использовать массив записей где первая строчка с наименованиями полей будет: Фамилия Город Адресс а потом сравнивать: допустим в первой процедуре узнать все фамилия проживающие в разных городах; во второй процедуре (работая уже с фамилиями из первой процедуры) вывести все фамилии с одинаковыми адресами а в третьей процедуре упорядочить фамилии. Ну а в последней процедуре создать новый файл и перезаписать в него данные. Мой вопрос заключается в следующем: как сравнить города и адреса? Я не понимаю этот нюанс. Нам дано неизвестное количество людей(т.е. решать нужно для любого числа) . Подскажите как отфильтровать

Решение задачи: «Вывести фамилии людей, живущих в разных городах по одинаковым адресам»

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

                            type dan=record
sername, city, adress:string[20];
var x:dan;
begin for i:=1 to n do
with city do 
if x[i]<>x[j] then {запомнить фамилию}
                        