Как вывести элементы самой короткой ветви в бинарном дереве?

Hemul GM, имеется бинарное дерево, в котором, логично, есть ветви(задаются с клавиатуры), и надо определить самую короткую ветвь и вывести её элементы

Как вывести элементы самой короткой ветви в бинарном дереве?

Антон Федорян,

function Height(Tree:PNode): integer;
var
left,right: integer;
begin
if Tree^.left = nil then left:= 0
else left:= Height(Tree^.left);

if Tree^.right = nil then right:= 0
else right:= Height(Tree^.right);

Height:=1+ min(left,right);

end;

вот для поиска длины