{* Задача 463 *}

Unit ZADACH463;
Interface
Implementation
Begin
 writeln('Определить комбинированный тип для представления анкеты жителя, состоящей из его фамилии, названия города, где он проживает, и городского адреса. Адрес состоит из полей: «улица», «дом», «квартира». Ввести информацию по 100 жителям. Вывести фамилии жителей, которые живут в одном городе с первым жителем из списка.');
End.

Program zadach463;

Uses zadach463.pas; {* Эту строку можно удалить *}
Type {* Типы переменных *}
  zitel = Record             surname, city : String;
  address : Record             street : String;
  home, kvartira : integer;
  End;

  End;
Var {* Объявление переменных *}
  ft : Array [1..100] Of zitel;
  i  : integer;
  Begin
  writeln ('Введите информацию');
For i := 1 To 100 Do {* Цикл для i => [1 .. 100] *}
  Begin
read(ft[i].surname);
read(ft[i].city);
with ft[i], address Do
Begin
  read(street);
  read(kvartira);
  read(home);
End;

End;
For i := 2 To 100 Do {* Цикл для i => [2 .. 100] *}
  If ft[i].city = ft[1].city Then
    writeln (ft[i].surname);
End..