Du hast ja nur Zufallszahlen von 1 bis 6 (Würfel).
Also ein Array nehmen:
Delphi-Quellcode:
Zaehler_feld:array[1..6] of integer;
...
for i := 1 to 100 do
begin
zzahl := z[i];
if (zzahl >= 1) and (zzahl <= 6) then // Sicherheitsabfrage
Zaehler_feld[zzahl] := Zaehler_feld[zzahl] +1
else
; // Fehler, dürfte nie vorkommen
end;