Составить программу, выводящую на экран «Телефонный справочник» (Ф. И. О., адрес, номер телефона). Произвести поиск по ФИО – выдать адрес и телефон — Pascal(Паскаль)

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.