Число вхождений элемента E в дерево T

[AlexSun]

Задача:

type TED = <любой тип>;
дерево =^ верхушка;
верхушка = record
элемент: TED;
левая, правая: дерево;
end;
Описать процедуру или функцию, которая определяет число вхождений элемента E в дерево T.

Все что пока есть:

uses crt;
type TED = integer;
t =^ top;
top = record
e: TED;
l, r: t;
end;
begin
clrscr;

readkey;
end.

Не понимаю как делать.
Нужно создать дерево (как?), заполнить его чем-то (чем? рандом или от пользователя... и как?), далее получить от пользователя элемент (да?) и посчитать сколько его есть в дереве. В конце удалить дерево.

[AlexSun]

Актуально.