процедуры переворотов, добавления, удаления элемента.. для AVL дерева

[smalsvoloch]

есть дерево:
treepointer=^tree;
tree=record
data:tdata;
left:treepointer;
right:treepointer;
bal:-1..1;
ttree=record
pointer:treepointer;
err:shortint;
требуется написать процедуры переворотов, добавления, удаления элемента....
ГХМ... можно написать отдельно добавление и отдельно удаление элемента.
процедуры что то типо:
udalenie(root.pointer,root.err,del_ index.text);
vstavka(root.pointer,root.err,inser t_zap);
переменная err содержит код ошибки, на нее глядеть ненадо.....