var Anzahl, Nummer1, Nummer2, Nummer3, Nummer4, Nummer5, Nummer6,Zufall:Integer;

Begin
Nummer1:=0; // Halt die Variablen alle auf 0 setzen
Nummer2:=0; // Halt die Variablen alle auf 0 setzen
Nummer3:=0; // Halt die Variablen alle auf 0 setzen
Nummer4:=0; // Halt die Variablen alle auf 0 setzen
Nummer5:=0; // Halt die Variablen alle auf 0 setzen
Nummer6:=0; // Halt die Variablen alle auf 0 setzen
Anzahl:=strtoint(Edit1.text);
FOR i:=1 TO Anzahl DO randomize;Zufall:=random(6)+1;
If Zufall:=1 then Label1.caption:=inttostr(Nummer1 +1);
If Zufall:=2 then Label2.caption:=inttostr(Nummer2 +1);
If Zufall:=3 then Label3.caption:=inttostr(Nummer3 +1);
If Zufall:=4 then Label4.caption:=inttostr(Nummer4 +1);
If Zufall:=5 then Label5.caption:=inttostr(Nummer5 +1);
If Zufall:=6 then Label6.caption:=inttostr(Nummer6 +1);