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

const
 way='f_file';
 waytxt='text.txt';
type
 el=record
     surname,gorod,adres:string[40];
    end;
 arr_el=array [1..40] of el;
 ft=file of el;
var
 f:ft;
 r:arr_el;
 t:text;
 z:el;
surname,gorod,adres:string[40];
 i,j,q,n:integer;
 b,b1:boolean;
Procedure proverka(t:text; b,b1:boolean; i,j,q:integer; r:arr_el);
begin
  assign(t,'txt_res.txt');
 rewrite(t);
 for j:=1 to i-1 do
  begin
   b1:=true;
   for q:=1 to j-1 do
    if r[j].gorod<>r[q].gorod then b1:=false;
   if b1 then
    begin
     b:=false;
     q:=j;
     repeat
      inc(q);
      if r[j].gorod<>r[q].gorod then b:=true;
     until b or (q=i);
     if b then
      begin
       for q:=j+1 to i do begin
        if r[j].adres=r[q].adres then
         begin
          writeln(r[j].surname);
          writeln(r[q].surname);
         end;
         end;
         end;
         end;
      end;
      end;
Procedure sort_output(var i,n,j,q:integer; t:text; z:el);
begin
for n:=1 to i-1 do
    for j:=n+1 to i do
      if r[n].surname>r[j].surname then
        begin
          z:=r[n];
          r[n]:=r[j];
          r[j]:=z;
        end;
   for q:=1 to i do
   writeln(t,r[q]);
   end;
begin
 i:=0;
 assign(f,way);
 rewrite(f);
 assign(t,waytxt);
 reset(t);
 while not eof(t) do
  begin
   inc(i);
   readln(t,surname);
   readln(t,gorod);
   readln(t,adres);
   r[i].surname:=surname;
   r[i].gorod:=gorod;
   r[i].adres:=adres;
   write(f,r[i]);
   end;
    proverka(t,b,b1,i,j,q,r);
      sort_output(i,n,j,q,t,z);
 close(t);
 close(f);
End.