Guten Abend,
ich würde Dir ein Array vorschlagen welches die Anzahl der 1er-6er aufnimmt.
Delphi-Quellcode:
var
augen: Array[1..6] of Byte;
...
inc(augen[w1]); // erhöht den Wert im Augen Array des wurfes von Würfel_1 um 1
Wenn eine 3 gewürfelt wird, wird die Position 3 des Arrays um 1 erhöht.
Grüße
Klaus