паскаль поиск

[shark2010]

Люди помогите с созданием удаления записи через поиск)) данные в двоичном дереве. поиск по запросу выводит данные об абоненте ФИО и номер я хочу чтобы курсор передвигался по записи и можно было выбрать что имеено удалить из дерева. заранее спс!!!

Вот код!

[shark2010]

begin
 repeat
  clrscr;
  writeln('---------------------*** Введите параметр для поиска:----------
  writeln(' ');
  writeln(' ');
  writeln('                           1 - ФИО              ');
  writeln('                           2 - Номеру телефона
  writeln('                           3 - Выход
  writeln(' ');
  write('                           Ваш вариант:  ');
  readln(k);
  case k of

    1: begin
        creat_tree (root,1);
         clrscr;
         write('Введите Фамилию: ');
         readln(st1);
         write('Введите Имя: ');
         readln(st2);
         st1:=st1+'  '+st2;
         write('Введите Отчество: ');
         readln(st2);
         st1:=st1+'  '+st2;
         p:=root;
          while (p<>nil)and (p^.inf.fio<>st1) do
          if st1<p^.inf.fio then p:=p^.left
                      else p:=p^.raght;
             clrscr;
   Writeln('РЕЗУЛЬТАТЫ ПОИСКА') ;
  if p=nil then
         writeln('Запись отсутствует')
         else out_zapiz(p);
         readkey;

       end;

   2: begin
       creat_tree (root,2);
         clrscr;
         write('Введите номер: ');
         readln(st1);
         p:=root;
          while (p<>nil)and (p^.inf.num<>st1) do
          if st1<p^.inf.num then p:=p^.left
                      else p:=p^.raght;
              clrscr;
   Writeln('РЕЗУЛЬТАТЫ ПОИСКА') ;
  if p=nil then
         writeln('Запись отсутствует')
         else out_zapiz(p);
         readkey;

       end;

[shark2010]

код очень большой если нужен будет полностью пишите выложу..

[Hacker19_90]

http://programmersforum.ru/showthread.php?t=53505
Посмотри мои архивы!!! Помоему я это уже делал

[Hacker19_90]

АААА погоди работаешь со списком????

[shark2010]

жаль что некому помочь! Тема то интересная!!!