Pascal/Turbo Pascal - convertir un arbol binario en un arbol equilibrado

hola, a quien me pueda ayudar. Partiendo de un arbol binario de busqueda desearia crear un nuevo arbol binario de busqueda, pero que este equilibrado, es decir, que todos los nodos esten completos o casi, que exista un reparto de nodos, la idea la tengo, buscar la clave que sea mediana del arbol y colocarlo en el nodo raiz y a partir de ahi colocar los demas nodos, no se pueden usar estructuras auxiliares.gracias de antemano.