Pascal/Turbo Pascal - Ayuda con arboles

Tengo un árbol de búsqueda binario de enteros, el árbol esta ordenado (a la izquierda los menores y a la derecha los mayores) y balanceado. Se me pide un puntero que apunte a un subárbol del árbol dado que contenga los 7 números mayores del árbol, por ejemplo si el árbol tiene la siguiente forma:
----------------------8---------------------
---------4-----------------------13----------
---2--------6------------10-----------14---
1---3---5------7-----9----11---12----15-

debería devolver un puntero al subarbol
---------13----------
--10-----------14---
9----11---12----15-