Как реализовать добавление в бинарное дерево?

Question

[Максим Ромашко]

Без разницы на каком ЯП. Я везде вижу одно и тоже: вставка в бинарное дерево поиска, пожалуйста,помогите мне. Вот структура:

PTree = ^TTree;
TTree = record
Data: menu;
Left, Right: PTree;
end;