Anonymní profil zdenek – 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 :)