Programm Böse Sechs

[Coolend]

Genau das ist mein Problem ich habe keine ahnung was jetzt kommt.
Habe jetzt die while-schleife ausprobiert.

Delphi-Quellcode:

while (wurf<>6) do
wurf:=random(6)+1;
begin
  spielstand:=spielstand+wurf
end;
writeln(spielstand);
readln();
end.

aber da kommt auch nichts richtiges zustande.
Ist die while schleife denn richtig oder die for-schleife ?