Использование датчика случайных величин игра в "поле чудес"

Uses GraphAbc, Events;
const znach: array [1..10] of string [3]=('50','250','0','П','100','10','300','С','500','20');
 
procedure But;
begin
     setbrushcolor(clskyblue);
     rectangle(300,10,490,100);
     setfontsize(20);
     setfontname('Times');
     textout(320,20,'ВРАЩАЙТЕ');
     textout(330,60,'БАРАБАН');
     setbrushcolor(clwhite);
     setfontsize(10);
     redraw;
end;
 
procedure Vraschenie;
Var u, u0, uu, i, x, y, skorost, povorot: integer;
begin
  skorost:=10;
  povorot:=10 + random(500);
 for u0:=0 to povorot do
     begin
     uu:=u0;
     clearwindow;
     circle(200,200,135);
       for i:=1 to 10 do
         begin
          if odd(i) then SetBrushColor(clred)
             else setbrushcolor(clyellow);
          u:=uu + round(36);
          Pie(200,200,100,uu,u);
          setbrushcolor(clwhite);
          x:=200-Round(115*sin(Pi*uu/180));
          y:=200-Round(115*cos(Pi*uu/180));
          textout(x-5,y-5,znach[i]);
          uu:=u;
          end;
      SETPENWIDTH(7);
      line(400,200,350,200);
      line(360,190,350,200);
      line(360,210,350,200);
      SETPENWIDTH(1);
      sleep(skorost);
      redraw;
      if u0 mod (povorot div 10)=0 then inc(skorost,3);
      end;
But;
end;
 
procedure MouseDown(x,y,mb: integer);
begin
if (x>300) and (x<490) and (y>10) and (y<100) then Vraschenie;
end;
 
Begin
  lockdrawing;
  setWindowSize(500,400);
  But;
  OnMouseDown:=MouseDown;
End.