Поиск элемента в дереве, Бинарное дерево Опции

[XBugiman]

Структура:

  PTree=^Tree;
  Tree=record
	info:string[70];
	da,net:PTree;
  end;

Нужна процедура/функция, которая возвратит указатель на элемент current содержащийся в дереве. (current: PTtree); В наличии есть root и currnet.

[volvo]

В узлах содержатся не цифровые значения, а строки.

Зачем мне эта информация? Хоть записи, какая разница? Что, строки не сравниваются между собой так же, как и числа?

Нужно найти указатель на узел, который указывает на current.

И что же ты собрался возвращать, если у тебя искомое значение содержится в root-е? Нет у него предка, что дальше?