ADT-Liste Listenelement anhaengen

[ajaxson]

hy

ich hab eine ADT-Liste erstellt und hab nun ein Problem mit der Listenoperation element_anhaengen...

Delphi-Quellcode:

procedure anhaengen(element:integer;var liste:TRIngliste);
var neues:TZeiger;
begin
 NEW(neues);
 neues^.inhalt:=element;
 neues^.naechster:=ringliste.erstes;
 if not (leer(liste)) then  begin
                      ringliste.letzte^.naechster:=neues;
                      ringliste.letzte:=neues;
                      ringliste.aktuelles:=neues;
                     end
               else begin
                      Ringliste.erstes:=neues;
                      Ringliste.aktuelles:=neues;
                      Ringliste.letzte:=neues;
                    end;
end;

es werden irgendwie keine listen elemente angehängt

kann mir einner helfen?