Egal ob ich beide auf 1000 oder 10000 setze, der Fehler bleibt leider bestehen.
Du verstehst nicht!
Hier gibt es den Fehler out of Range
Weil du dein Array von 1 > 10000 definiert hast
und versuchst das Array mit 0 anzusprechen.
i := 0 to nn do z[i]:=random(10);
i = 0 muss aber 1 sein
gruss