Последовательность обхода, помечаем вершину 0 уровня, корень дерева. пометить 2 уровня и т.д
этот алгоритм может быть распространен и наслучай произвольного корневого дерева
1)занести в очередь корень дерева, пока очередь не станет пустой повторять следующие действия: удалить первый элемент из головы очереди, добавить в хвост очереди всех потомков удаленной вершины…….. и т.д.
Введем Next:PTree которая будет служить для связки очереди.
Head:=Root;
Tail:=Root;
k:=0;