Program lab13; 

Type 
   book = record 
        surname:string[20]; 
        name:string[20]; 
        adres:string[20]; 
   end; 
Var 
   b:text; 
   gr:array [1..5] of book; 
   i,j:integer; 
   a:string; 

Begin 
  a:='c:\tp7\lab13.txt'; 
  For i:=1 to 5 do 
    Begin 
      WriteLn (' vvedu prizvusche '); 
      ReadLn(gr[i].surname); 
      WriteLn (' vvedu name '); 
      ReadLn(gr[i].name); 
      WriteLn (' vvedu adres '); 
      ReadLn(gr[i].adres); 
    end; 
  Begin 
    Assign(b,a); 
    Rewrite(b); 
    WriteLn ('prizvuscha'); 
    For i:=1 to 5 do 
      WriteLn(b,gr[i].surname:40,gr[i].name:40,gr[i].adres:40); 
    Close(b); 
  end; 
  Reset(b); 
  For i:=1 to 5 do 
    Begin 
      For j:=i + 1 to 4 do 
        Begin 
          If gr[i].name = gr[j].name then 
            WriteLn(gr[i].surname); 
            
        end; 
    end; 
end.