Pascal/Turbo Pascal - Retroceder Nodo

Buen día. Una consulta, estoy tratando de realizar un procedimiento que dado un árbol retroceda el elemento de un nodo mientras su dato sea menor que el de su padre. Mi duda esta en la recursion, como mantengo la referencia al padre y luego de la recursion si se cumple la desigualdad intercambiarlos. Saludos!

No se si entendí bien pero al crear el árbol el procedimiento ya realiza esa labor.
Menores a la izquierda y mayores a la derecha e acaso es diferente a esa forma.

No era exatamente eso, era tomar un nodo de un arbol ( no ordenado ) que fuera hoha y llevarlo niveles arriba mientras su dato sea mayor que el de su padre, de todas formas lo he solucionado, gracias!