HAUSAUFGABE: Sortieren einer Pointer Variable

DevEye

Erfahrenes Mitglied
Hi Zusammen!
Ich soll folgendes machen:
Voraussetzung Pointer Variable bestehend aus einem RECORD mit einem Zeiger und den Inhalt. Eine Schleife Wiederholt erstmal die Eingabe von Integerzahlen bis die Eingabe = 0 ist. Schon bei der Eingabe sollen die einzelnden Pointer sortiert werden und am Ende sortiert ausgegeben werden!

Ohne Sortierung (müsste gehen):
Program Liste;
USES WINCRT;
TYPE
Zeiger = ^Element;
Element= RECORD
Naechster : Zeiger;
Inhalt : Integer;
END;
Var z,Wurzel:Zeiger;

BEGIN
Wurzel := NIL;
REAPEAT
New(z);
ReadLn(z^.Inhalt);
z^.Naechster := Wurzel;
Wurzel := z;
UNTIL z^.Inhalt = 0;
z := Wurzel;
WHILE z <> NIL DO
Begin
WriteLn(z^.Inhalt);
z:=z^.Naechster;
End;
END.


Bitte um Hilfe! (ohne Fehler, da ich kein Compiler @home habe, THX!)

:(