Обход в ширину

Последовательность обхода, помечаем вершину 0 уровня, корень дерева. пометить 2 уровня и т.д

этот алгоритм может быть распространен и наслучай произвольного корневого дерева

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

Tail:=Root;

k:=0;