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.