Type KnotenPointer = ^Knoten;

      Knoten = Record
               Links, Rechts,Oben : KnotenPointer;
               Wert                   : Integer;
               Operator              :  Char;
     End;