erstes Element aus dynamischem Array löschen

[TheAn00bis]

Hi, ich habe schon die suche benutzt und auch den Eintrag in der Code-Libary gefunden, allerdings habe ich keine Ahnung von Pointern und Assembler, von daher wollte ich lieber meine eigene Procedur schreiben.

Allerdings scheint die follgende immer eine "Invalid Pointer Message" oder eine AV zu erzeugen. Könnte jemand mal drüber schauen?

Achja, es kommt auf die Reihenfolge an, ich will nur das erste Element löschen und den Rest nachrücken lassen und es soll keine allgemeine Procedure sein, sondern nur auf das dyn Array "Zeiten" zugreifen

Delphi-Quellcode:

procedure TMain.loesche; 
var n,t,y:integer;
begin
for n:=length(zeiten) downto 0 do begin
 if n<>0
    then begin
         t:=zeiten[n];
         zeiten[n-1]:=t;
    end;
 end;

y:=length(zeiten);
setlength(zeiten,y-1)
end;