НЕ рекурсивный поиск в бинарном дереве Опции

[Вася]

У меня есть процедура поиска в бинарном дереве с использованием рекурсии, нужно сделать поиск с использованием стека или очереди. Вопрос: как это должно выглядеть?

Код

...
type
   Tinf = string [20];
   Ttree = ^TNode;
   TNode = record
                inf: Tinf;
                left, right: Ttree;
           end;
   Tptr = ^Tlist;
   Tlist = record
                inf: Tinf;
                next: tptr;
             end;
   TQueue = record
                 head,
                 tail: Tptr;
             end;
...
function Find(Root: TTree; X: Tinf): TTree;
q: Tqueue;
begin
   if Root = nil then Find := nil
   else
    if X = Root^.inf then Find := Root
    else
     if X < Root^.inf then Find := Find(Root^.Left, X)
      else Find := Find(Root^.Right, X);
end;

[volvo]

Вопрос: как это должно выглядеть?

Ответ: сначала надо нажать на "Поиск" вверху страницы, потом вбить в строку поиска нерекур*, и походить по найденным ссылкам... В итоге приходишь вот сюда, и смотришь (включая и ссылки тоже): Создание бинарного дерева и обход

Попробуй реализовать самостоятельно, если не получится - спрашивай...

[Вася]

Что-то я не могу разобраться. У меня код полная ерунда (даже компилятор не запускается). Пожалуста напишите код процедуры. Буду очень признателен если ещё и с коментариями.