Wert aus Array entfernen

[Walgo]

Guten Abend,
[drei Leerzeilen entfernt, Luckie]
ich mache momentan Delphi in Informatik und habe nebenher angefangen ein-zwei eigene Programme zu schreiben.
[drei Leerzeilen entfernt, Luckie]
Darunter war auch die Idee ein "Lotto-Programm" zu schreiben - also 6 aus 49 Möglichkeiten.
[drei Leerzeilen entfernt, Luckie]
Ich habe einen Array "werte" von 0 bis 48 mit den Werten 1-49 Gefüllt.
[drei Leerzeile entfernt, Luckie]
Nun soll nach jeder Ziehung die gezogene Zahl aus diesem Array entfernt werden, damit sie nicht wieder gezogen werden kann.
[drei Leerzeilen entfernt, Luckie]
Ich habe in dieser For Schleife die Zufallszahlenberechnung und das Entfernen des Wertes geschrieben.

Die Fehlerausgabe spricht von einer "Exception der Klasse EAccessViolation" - so wie ich das Verstanden habe bedeutet das "Übergabe eines ungültigen Wertes"

[drei Leerzeielen entfernt, Luckie]
zw = speichert die gezogene Zahl der "jeweiligen Runde".
Zufall= integer array [0..5], in ihm sollen alle gezogenen Zahlen gespeichert werden
p = ist die Schleifenvariable für die While-Schleife

Delphi-Quellcode:

 for i := 0 to 5 do
        begin

            zw:= RandomFrom (werte);
            zufall[i]:= zw;
            p:=0;
           while (p+zw) <> high(werte) do
             begin

               werte[zw+p-1]:=werte[zw+p];
               p:=p+1;
             end;

          SetLength(werte,length(werte)-1);

        end;

[drei Leerzeielen entfernt, Luckie]
Also die For-Schleife liefert 6 Wiederholungen - für 6 Zahlen.
[eine Leerzeielen entfernt, Luckie]
Die While-schleife soll die Array-Werte verschieben, hier ist ein Beispiel, wie ich mir das gedacht habe:
[eine Leerzeielen entfernt, Luckie]

Code:

zw= 6
->
while (0+6) <> 48 do werte(5):=werte(6)
p:=p+1
(die zweite While runde sollte dann so aussehen:
while ( 1+6) <> 48 do werte(6):=werte(7) usw.)

Aber bei dieser Zeile scheint er ein Problem zu bekommen:

Code:

werte[zw+p-1]:=werte[zw+p];

[drei Leerzeielen entfernt, Luckie] Hat jemand von euch eine Idee wo der Fehler liegt, bzw. hat jemand eine Idee wie ich die gezogene Zahl aus dem Array am besten löschen kann?

[drei Leerzeielen entfernt, Luckie]
Würde mich wirklich sehr freuen
[drei Leerzeielen entfernt, Luckie]
mfg walgo

[edit=Luckie]Jetzt weiß ich auch, wo meine Leerzeilen geblieben sind. Mfg, Luckie[/edit]