Pascal - hra kostky – Pascal – Fórum – Programujte.com

dobry den, 
dostal jsem za ukol naprogramovat hod kostkou zaklad mam jenze dalsi urovni bylo aby mi problikavala cisla a na nejakem se to zastavilo a to uz nevim jak na to smim poprosit o radu jak na to? 
program vypada takto:

program kostka; 
uses crt; 
var a: integer;

begin 
clrscr; 
randomize;

repeat 
begin

a:=random(7); 
if a<>0 then 
begin

writeln('hodil jsi ' ,a); 
writeln(' '); 
writeln('stiskni ENTER pro další hod'); 
rreadln; 
clrscr; 
end; 
end; 
until a=8;

readln; 
end.

dekuji za kazdou spravnou radu :)

Vygeneruješ si náhodný číslo (počet zobrazení). Pak si v cyklu (už nevím, jestli se jmenuje v pascalu for nebo ne) vypíšeš náhodný číslo chviličku počkáš, vrátíš pozici cursoru, vygeneruješ nový, vypíšeš, dokud to nedosáhne čísla, který sis vygeneroval na začátku (počet zobrazení). Na konci si necháš to poslední vygenerovaný.

#1 zdenek
Zkus to takto:

program kostka; 
uses crt; 

var n,pokr,konec:Integer;
    anone:string;

begin
  pokr := 0;                         // promenna pro moznost pokracovani
  WriteLn('---- Hod kostkou ----');
  Randomize;
  while pokr=0 do
  begin
    n := Random(6)+1;   // vygeneruje cislo 1-6
    WriteLn;
    WriteLn(' Hodil jsi cislo ',n);
    WriteLn;
    konec := 0;
    repeat                                       // opakujeme vyzvu, dokud nenapisme a nebo n
      Write(' Novy hod? [a/n] ');       // chceme-li hazet dale napiseme a
      ReadLn(anone);
      if (anone='n')or(anone='N')or(anone='a')or(anone='A') then
        konec := 1
      else
      begin
        WriteLn;
        WriteLn(' Musis zadat a nebo n');
      end;
    until konec<>0;
    if (anone='n')or(anone='N') then     // v pripade ze napiseme n - program skonci
      pokr := 1;
  end;
end.