АВЛ-деревья на pascal

Здравствуйте! Помогите реализовать задачу на Pascal.Нужно завести АВЛ-дерево и организовать в нем действие по вставке элементов .