1. auf Umlaute (würfel) verzeichten
2.
PunkteArray[Punkt,Koordinate]:=Wert;
Dann wird wohl entweder Punkt kleiner als 1 oder größer als 8 sein
oder
Koordinate wird kleiner als 1 oder größer als 3 sein.
Mach mal folgendes uns poste das Ergebnis dann:
Delphi-Quellcode:
showmessage(IntToStr(Punkt) + ', ' + IntToStr(Koordinate));
//PunkteArray[Punkt,Koordinate]:=Wert;