Ich würde das ganze mit einem Record erschlagen
Delphi-Quellcode:
tRouletteRec = record
Zahl : word;
PI : TPairImpair;
RN : TRougeNoir { Grün nicht vergessen }
...
end;
var
ra: array [0..36] of tRouletteRec;
Im Initialisierungsteil werden alle Werte gesetzt und nach dem Würfeln wird dann ausgelesen was geworfen wurde.
Gruß
K-H