deine unterlagen passen sicher für eine ähnlich lösung
ich bräuchts

Type KnotenPointer = ^Knoten;

Knoten = Record
Key : Integer;
Op : Char;
Links, Rechts,Oben, Unten : KnotenPointer;
End;

Var Construktor,Generator, Wurzel : KnotenPointer;

den generator brauchst du zu allokieren. also um neue knoten zu erzeugen und dann den mit dem zu verknüpfen auf den dein construktor zeigt.\n\n

<!--EDIT|lichtkind|1083852112-->