По номеру телефона вывести ФИО и адрес абонента

Const
 n = 5; //кол-во абонентов
Type
 phonebook = record
  number:integer;
  fam,name,otch:string;
  adress: record
   street:string;
   house:integer;
   flat:integer;
  End;
 End;
Var
 a:array [1..n] of phonebook;
 numtorequest:integer;
 i,j:integer;
Begin
 For i:=1 to n do //Ввод данных
  With a[i] do
   Begin
    Write('vvedite nomer telefona: ');
    Readln(number);
    Write('Vvedite famaliu: ');
    Readln(fam);
    Write('Vvedite Imya: ');
    Readln(name);
    Write('Vvedite otchestvo: ');
    Readln(otch);
    Writeln('Vvedite address abonenta');
    With adress do
     Begin
      Write('Ulitsa: ');
      Readln(street);
      Write('Dom: ');
      Readln(house);
      Write('Kvartira: ');
      Readln(flat);
     End;
    writeln;
   End;
 writeln;
 Writeln('Nomer tlf -- Famoliya -- Imya -- Otchestvo -- Ulitsa -- Dom -- Kvartira');
 For i:=1 to n do
  With a[i] do
   writeln(number,' -- ',fam,' -- ',name,' -- ',otch,' -- ',adress.street,' -- ',adress.house,' -- ',adress.flat);
 writeln;
 Writeln('Pervii zapros: ');
 Write('Vvedite nomer telefona: ');
 Readln(numtorequest);
 For i:=1 to n do
  With a[i] do
   if number = numtorequest then writeln(fam,' ',name,' ',otch,' ',adress.street,' ',adress.house,' ',adress.flat);
 Writeln;
 Writeln('Второй запрос: ');
 For i:=1 to n do
  For j:=1 to n do
   if (a[i].adress.street = a[j].adress.street) and (a[i].adress.house = a[j].adress.house) and (a[i].number <> a[j].number) then 
    writeln(a[i].number,' ',a[i].fam,' zhivet v dome ',a[i].adress.house,', chto na ulitse ',a[i].adress.street,', вместе с ',a[j].number,' ',a[j].fam);
End.