bei Random niemals diegleiche Zahl Teil 2

[Moyyer]

Ich ahb es ausgetestet doch leider kommt jetzt eine schöne zugriffsverletzungsfehlermeldung.

Code:

    x := random(9);//Wertebereich

Wenn ich die zeile so umändere kommen 8 zahlen zwischen 0 und 8 (keine 9) wenn ich nach der zeile den folgenden code reimache hängt sich das programm trotzdem weg, obwohl es zulässig ist.

Code:

if x = 0 then x := 1;