Изобразить стрелочные часы

uses crt,graphABC,pointrect;
{ñòðåëêà-ðîìá}
procedure strelka(xc,yc,r,c:integer;u:real);
var p:array[1..5] of point;
    i:integer;
    a,r1:real;
begin
r1:=r/2/cos(pi/12);
p[1].x:=xc;
p[1].y:=yc;
p[5].x:=xc;
p[5].y:=yc;
p[3].x:=xc+round(r*cos(u));
p[3].y:=yc-round(r*sin(u));
p[2].x:=xc+round(r1*cos(u-pi/12));
p[2].y:=yc-round(r1*sin(u-pi/12));
p[4].x:=xc+round(r1*cos(u+pi/12));
p[4].y:=yc-round(r1*sin(u+pi/12));
setpencolor(c);
setbrushcolor(c);
polygon(p,5)
end;
var xc,yc,r,c,i,x,y:integer;
    u:real;
    s:string;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=150;
{÷èñëà îò 1 äî 12}
u:=pi/3;
for i:=1 to 12 do
 begin
  x:=xc+round((r+20)*cos(u));
  y:=yc-round((r+20)*sin(u));
  str(i,s);
  setfontsize(14);
  setbrushstyle(bsClear);
  {if i<10 then textout(x,y,s)
  else }textout(x-5,y-10,s);
  u:=u-pi/6
 end;
{îêðóæíîñòü ÷àñîâ}
setpenwidth(3);
circle(xc,yc,r+30);
u:=pi/2;
setpencolor(clWhite);
c:=clrandom;
strelka(xc,yc,r,c,u);
{äâèæåíèå ñòðåëêè}
repeat
delay(500);
strelka(xc,yc,r,clWhite,u);
u:=u-pi/6;
strelka(xc,yc,r,c,u);
if abs(u-(-3*pi/2))<0.1 then{1 îáîðîò}
 begin
  u:=pi/2;
  c:=clrandom;
 end;
until keypressed
end.