Бинарное дерево, Высота... Опции

[Олег]

Задание - рекурсивно определить высоту бинарного дерева.

Ковырялся-ковырялся, не осилил. Ни в faq, ни в интернете регения не нашел. Есть идеи ,как решать?
Заранее благодарен.

[Alex1988]

 procedure CountFunc(dub:ptr; h:integer);
begin
if dub<>nil then begin
if IsTerminal(dub) and (minH >h) then begin
minval:=dub^.list;
minh:=h;
end;
CountFunc(dub^.left,h+1);
CountFunc(dub^.right,h+1);
end;
end;
 

а вот такая подойдет?