Сформировать запись, имеющую следующую структуру. И определить:есть ли в книжке телефон данного человека;кому принадлежит данный телефон;список людей, живущих на данной улице.Сформировать запись, имеющую следующую структуру. — Pascal(Паскаль)

type знакомый=record 
фамилия:string; номертел:10000..99999; адрес:string; end;

uses
  crt;
type
  info = record
    Fam,adr: string;
    num: 10000..99999;
  end;
var
  i,n: integer;
  t: info;
  a: array [1..20] of info;
  tel: longint;
  s: string;
begin
  clrscr;
  write('Vvedite kol-vo zapisey: ');
  readln(n);
  for i:= 1 to n do
  begin
    clrscr;
    write('Vvedite familiyu: ');
    readln(t.fam);
    write('Vvedite adres: ');
    readln(t.adr);
    write('Vvedite telefon: ');
    readln(t.num);
    a[i]:=t;
  end;
  clrscr;
  write('Vvedite nomer telefona: ');
  readln(tel);
  for i:= 1 to n do
    if tel=a[i].num then
      writeln(a[i].num,' ',a[i].fam,' ',a[i].adr);
  readkey;
  clrscr;
  write('Vvedite ulicu: ');
  readln(s);
  for i:= 1 to n do
    if s=a[i].adr then
      writeln(a[i].adr,' ',a[i].fam,' ',a[i].num);
  readkey;
end.