Составить программу, которая позволяет найти в телефонном справочнике по номеру телефона ФИО и адрес абонента

Type Sprav=Record
     Telefon:string[11];
     FIO:string[15];
     Adres:string[15];
     End;
Var f:file of sprav;
    st:sprav;
    i,n:integer;
    s:string;
Begin
    write('Введите кол-во абонентов: ');readln(n);
    Assign(f,'telephone.dat');Rewrite(f);
    For i:=1 to n do
     Begin
      writeln('Введите информацию о ',i,'-ом абоненте');
      write('Телефон: ');readln(st.Telefon);
      write('Ф.И.О: ');readln(st.FIO);
      write('Адрес: ');readln(st.Adres);
      write(f,st);
     End;
    Reset(f);
    writeln('-----------------------------------------------');
    writeln('  Телефон   | ','     Ф.И.О     | ','     Адрес     | ');
    writeln('-----------------------------------------------');
    While not Eof(f) do
     Begin
      read(f,st);
      writeln(st.Telefon:11,'|':2,st.FIO:15,'|':2,st.Adres:15,'|':2);
     End;
    write('Введите номер телефона по которому искать абонента: ');readln(s);
    Reset(f);
    While not Eof(f) do
     Begin
      read(f,st);
      if st.Telefon=s then writeln(st.FIO,'|':2,st.Adres:15,'|':2);
     End;
    Close(f);
    readln;
End.