Hallo,
zieh Dir von der Seite
Win32 in Delphi die Komponente TrackBar auf Dein Formular.
Die hat die Attribute Min und Max, in denen Du für Deinen Zufallsgenerator einen Mindest- und einen Höchstwert angeben kannst. In Deinem Quelltext änderst Du dann die Zeile
inc(n); zufall:=random(6);
in
inc(n); zufall:=random(TrackBar1.Position);
und schon hast Du das gewünschte Ergebnis.
Position ist der per Trackbar eingestellte Wert, irgendwo von Min bis Max. Wenn Min also 1 ist und Max 10, so kannst Du die Werte 1 bis 10 auswählen.