Kleine Frage am Rande...
Das Array für die Würfel wurde so deklariert:
w: array[1..5] of integer;
Wenn man aber drauf zugreifen will, geht das doch nur über die Indizes [0..4], oder irre ich mich da gewalitg?
EDIT : Alles klar! Danke für den Hinweis. (Arbeite selbst nur mit dynamischen Arrays)
PS. schreib doch die zuweisung der Werte als Schleife... Erspart dir Arbeit... 8)
Delphi-Quellcode:
// für diesen fall ausreichend;
var i : byte;
.
.
.
for i := low(w) to high(w) do
w[i] := random(5) + 1;
LG Marco