[pascal] Supprimer un noeud d'un arbre binair

Bonjour,

Voila, je rencontre un petit problème en programmant en pascal :
J'ai créer un arbre binaire comportant, pour chaque noeud, une valeur, une balance (= hauteur de droite - hauteur de gauche), un fils a gauche et un fils a droit.
La valeur du fils de droite doit etre superieur a celle du père et la valeur du fils de gauche inferieur a celle du père.
On dit que l'abre est équilibré si toute les balances sont comprises entre -1 et 1.
Je voudrait supprimer un noeud au hasard dans mon arbre, et conserver arbre binaire équilibré.

Donc si quelqu'un a une idée d'algorythme, elle serait la bien venu !!
Merci d'avance.

Benoit