Не знаю, а мне показалось, что я сделал совсем не то, что нужно :-)

Чтобы вывести весь список при заданном конкретном элементе, удобнее использовать рекурсию
Напишу в условном коде, т.к. на М проверять долго, да и опять же есть сомнения, что получится то, что нужно.

ВывестиУзел (ИдУзла)
{
Родитель= ОпределитьРодителя(ИдУзла);
Если Родитель=Пусто То ВывестиСамыйВерхнийУровень();
Иначе ВывестиУзел(Родитель);

ВывестиТекущийУзел;
}

Предпочитаю не использовать псевдокод, но для условных задач иногда удобно.
В данном примере будут выведены все узлы в порядке начиная с самого верхнего