Записи+файлы в паскале!!

[shadezx]

Создать массив записей, содержащий сведения об абоненте: имя, адрес и телефон. Реализовать вывод всей информации из справочника, поиск телефона по имени, поиск имени по телефону.
и потом записать данные у файл.Помогите кто-то буду благодарен

[gaw4]

если с нуля, стучись, помогу
или конкретно в чем проблема

[ZX Spectrum-128]

Часть первая - создание справочника.

Type
  Phone=record
    Name:string[64];
    Adres:string[128];
    Tel:string[16];
  End;
Var
  Myphone:phone;
  I,n:integer;
  F:file of phone;
Begin
  Writeln('Введите количество записей: '); Readln(n);
  Assign(f,'data.bd');
  Rewrite(f);
  For i:=1 to n do
  With myphone do
    Begin
       Readln(name);
       Readln(adres);
       Readln(tel);
    End;
    Write(f, myphone);
  End;
  Close(f);
...