belibig oftes Würfeln

[General Wolf1]

also ich dachte mir das so:
procedure TForm1.Button1Click(Sender: TObject);
var a,x,b,c,g,f,h,i,j,k,l,m,n,o,p,q,r:integer; //Kann sein das da zuvile drin sind aber da liegt nicht der fehler

begin
a:=strtoint(Edit1.Text);//--> im Editfenster wird die anzahl eingegeben wie oft gewürfelt wird
repeat //ich dacht es funzt mit repeat das ich den so oft wiederholen lasse er den wert der eingabe errreicht hat
randomize; //Zufallsding wird aktiviert
b:=random(6)+1; //der soll würfeln bzw. zufall aus den 6zahlen machen (wie gehöhnich)
case b of
1:inttostr(g); //hier fängt es an wo ich nicht mehr weiterwusste
2:inttostr(h); //dachte ich kann gewürfelten zahl einer variable zuordnen die er später zum Zählen nimmt
3:inttostr(i);
4:inttostr(j);
5:inttostr(k);
6:inttostr(l);
end;
until a=a; //ersoll das halt solange wiederhohlen bis er die eingegebenen Zahl erreicht hat
for f:= 0 to g do //jetzt soll er die Variablen auf zum Zählen nutzen die ich oben belegt habe.
begin
label16.Caption:=inttostr(f); //soll mir dann das endergäbniss ausgeben wie oft z.b.:die 1 gewüfelt wurde
end;
for m:= 0 to g do
begin
label17.Caption:=inttostr(m);
end;
for n:= 0 to g do
begin
label18.Caption:=inttostr(m);
end;
for o:= 0 to g do
begin
label19.Caption:=inttostr(o);
end;
for p:= 0 to g do
begin
label20.Caption:=inttostr(p);
end;
for r:= 0 to g do
begin
label21.Caption:=inttostr(r);
end;
//Ich dachte das könnte man so realisieren aber dem scheint nicht so.
hab nicht geschrien. bin nur etwas greizt weil ich da schon den ganzen tag dran sitze und immer noch keine Lösung habe