Type KnotenPointer = ^Knoten;
       Knoten = Record
                 Key : Integer;
                 Links, Rechts : KnotenPointer;
       End;

Var Anzahl : Integer;
      Wurzel : KnotenPointer;