Помогите определить ср.высоту бин.дерева Опции

[Средня высота бинарного дерева]

Ребята подсобите.
Никак не могу додуматься как определить среднюю высоту дерева.
Знаю что для вычисления необходимо использовать 2 функции. 1 -функция определяющая сумму длин путей от корня до вершины на каждом уровне дерева назовем её Level, 2- непосредственно вычисляет среднюю высоту пусть будет AVsize.

Вот что удалось

Фукция вычисления высоты дерева

Код

function AVsize(t:tTree; Level: integer):integer
if t=nil then
AVsize:=0
Else Avsize:=Level+AVsize(t.left, Level+1)+AVsize(t.right, Level+1)
End;

Вот чтото в этом роде кажется но я никак не могу функцию level написать