Program zap_13;
Uses Crt;
Const
n = 10;
Type
sprav = record
Fio, adres: string[20];
tel: integer;
end;
Var
a: array [1 .. n] of sprav;
i: byte;
fio2: string;
BEGIN
ClrScr;
for i := 1 to n do
with a[i] do
begin
Writeln('Введите фамилию, имя, отчество ');
Readln(Fio);
Writeln(' Введите адрес');
Readln(adres);
Writeln('телефон');
Readln(tel);
End;
Writeln('Введите ФИО для поиска');
Readln(fio2);
for i := 1 to n do
with a[i] do
if Fio = fio2 then
Writeln(adres, ' ', tel);
Readln;
end.