Hi,
der Code ist mies *g*
Lotto da findest sicher was schöneres. Aber als Übung ok, keine Frage.
Dein Fehler liegt im
until Abschnitt, es müsste so in der Art lauten:
Delphi-Quellcode:
until (zahl[1] <> zahl[2]) and (zahl[1] <> zahl[3]) and
(zahl[1] <> zahl[4]) and (zahl[1] <> zahl[5]) and (zahl[1] <> zahl[6]);
Nachtrag: Irgendwie müsste es doch
and lauten. ^^