Бинарное дерево (BTree) DELPHI

[08ekhiv1]

Меня интересуют способы обходов бинарного дерева. И их алгоритмы. Я знаю что обход бинарных деревьев проходит рекурсивно. Дело в том что с рекурсией я не дружу...

Напишите пожалуйста обход бинарного дерева для библиотеки BTreeU.dcu лежащей в прикрепленном архиве. Также имеется справка по процедурам и функциям этой библиотеки.

Заранее спасибо.

З.Ы. Библиотека очень хороша так что берите и пользуйтесь кому она нужна.

[Sparky]

существует 3 варианта обходов:
прямой:
procedure obxod(root:tree);
begin
if root <> nil then
begin
write(root^.inf);
obxod(root^.left);
obxod(root^.right);
end;
end;

обратный обход:
procedure obxod(root:tree);
begin
if root <> nil then
begin
obxod(root^.left);
write(root^.inf);
obxod(root^.right);
end;
end;

концевой обход:
procedure obxod(root:tree);
begin
if root <> nil then
begin
obxod(root^.left);
obxod(root^.right);
write(root^.inf);
end;
end;