Выбрать и напечатать элементы, которые являются листами дерева

[sergogo]

есть задание...у меня полностью не получается его сделать...тот кто поможет огромное спасибо

Написать программу, которая создаёт бинарное дерево, каждый элемент которого символ. Напечатать все элементы дерева. Выбрать и напечатать элементы, которые являются листами дерева. Определить, есть ли среди листьев заданный символ

Program LR_3;   Uses Crt;
Type
    Node = ^Bder;
    Bder = record
           info : char;
           left, right : Node;
           end;

Procedure Insert (Var Root : Node; X : Char);
Procedure CreateNode (Var P : Node; N : Char);
Begin
     New(P);
     P^.info := X;
     P^.left := Nil;
     P^.Right := Nil;
     {NewTree := P; }
End;
    Begin
      If root = nil then CreateNode(Root, X)
                    else
      With Root^ do begin
           If Info < X then Insert(Right, X)
                       else
           If Info > X then Insert(Left, X);
                    End;
     End;

Function GetNode(Root : Node) : Char;
Begin
     If Root = nil then Writeln('Tree is pustio')
                   else
     GetNode := Root^.info;
End;