Вывести фамилии двух человек, в адресах которых разные только улицы, или сообщить о том, что таких людей нет

const
  nmax=100;
type
  chel=record
    name: string[30];
    town: string[30];
    strt: string[30];
    home: integer;
    flat: integer;
  end;
var
  a: array[1..nmax] of chel;
  n,i,j,k: integer;
begin
  write('Сколько человек в списке? ');
  readln(n);
  writeln('Введите данные');
  for i:=1 to n do
    with a[i] do
    begin
      write('Фамилия: ');
      readln(name);
      write('Город: ');
      readln(town);
      write('Улица: ');
      readln(strt);
      write('Номер дома: ');
      readln(home);
      write('Номер квартиры: ');
      readln(flat);
    end;
  k:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if ((a[i].town=a[j].town) and (a[i].home=a[j].home) and (a[i].flat=a[j].flat))
        and (a[i].strt<>a[j].strt) then
        begin
          inc(k);
          writeln(a[i].name,' ',a[j].name);
        end;
  if k=0 then writeln('Искомых людей нет ',k);
  readln;
end.