Не могу дописать

[sabaku35]

Дело такое, вообщем тема курсача, нужно организовать вот такую схему телефонный справочник : создается файл куда это дело записывается, потом туда записываем имя фамилию и номер, это есть, теперь нужно организовать поиск по фамилии или имени без разницы лишь бы пример работал, потом естественно это все у нас сохраняется, теперь абонент сменил номер и нужно его поменять, для этого есть еще одна штука но ее тоже не осилил, вообщем сделал запись в файл и закрытие нужно поиск и редактирование , помогите пж)))))

Вот сам код :

program Телефонный_справочник;
uses crt;
type phonebook=record //тип запись
       Name:string;
       Surname:string;
       PhoneNomber: string;       
end;
var r:array[1..10] of phonebook; //объявляем массив, в переменной храним данные
       f:text;
       i,n:integer; 
       q:string;
       k:string;
begin    //Связывание переменной с файлом
       assign(f,'PhoneBook.txt'); 
  
       i:=1;
repeat
       writeln('1)Добавить в телефонную книгу');
       writeln('2)Поиск');
       writeln('3)Внести изменения');
       writeln('4)Выход');
       readln(n);
       if n=1 then
begin   //производится запись предоставленной информации
       append(f);
       writeln('Абонент №',i);
       write ('Имя: ');
       readln(r[i].Name);
       write (f,' ','Имя:',r[i].Name,'  ');
       write('Фамилия: ');
       readln(r[i].Surname);
       write (f,'Фамилия:',r[i].Surname,'  ');
       //---------------------------------------
       write('Номер.абонента:');
       readln(r[i].PhoneNomber);
       writeln(f,'Номер.абонента: ',r[i].PhoneNomber);
       i:=i+1; 
       close(f);//производится закрытие файла
end;
//--------------------------------------------Поиск
      if n=2 then
   begin 
     reset(f);
    writeln('Введите имя для поиска');
    readln(f,k);
    close(f);
    writeln(k);
//---------------------------------------------- осуществляем поиск
   
       
       
     if n=3 then
begin
        
 //-----------------еще нету
end;   
       
       
       
       
       

//--------------------------------------------конец 
end;
end;
       until  n=4;
end.