Нарисовать стрелочные часы - Pascal ABC

uses graphABC,crt;
const r=90;
var sr,i,x,x1,y1,x2,y2:integer; a:real;
procedure strelki(x1,y1:integer);                     {Процедура секунд}
begin
     sr:=120;
     setpencolor(clred);
     a:=pi*(x+45)*6/180;
     x1:=600+round(sr*cos(a));                        {Рисуется стрелка}
     y1:=400+round(sr*sin(a));
     line(600,400,x1,y1);
 
     sleep(1000);
 
     sr:=120;
     setpencolor(clwhite);
     a:=pi*(x+45)*6/180;
     x1:=600+round(sr*cos(a));                         {Стрелка закрашивается белым}
     y1:=400+round(sr*sin(a));
     line(600,400,x1,y1);

     setpencolor(clblack);
     a:=pi*(x+45)*6/180;
     x1:=600+round(r*cos(a));                          {Закрашиваение секундных делений после прохода стрелки}
     y1:=400+round(r*sin(a));
     line(600,400,x1,y1);

     setpencolor(clblack);                             {Рисование круга поверх делений на секунды}
     circle (600,400,80);

end;
BEGIN
maximizewindow;
circle(600,400,135);                                   {Рисование круга поверх чисел}
for i:=0 to 11 do                                      {Рисование чисел по окружности}
 begin
  a:=pi*(i+10)*30/180;
  x2:=596+round((r+30)*cos(a));
  y2:=396+round((r+30)*sin(a));
  if i>9 then x2:=x2-3;
  textout(x2,y2,IntToStr(i+1));
 end;
 
 for x:=0 to 60 do begin                               {Рисование круга какого-то, из-за которого не рисуются деления в других частях}
   a:=pi*x/30;
   x1:=600+round(r*cos(a));
   y1:=400+round(r*sin(a));
   line(600,400,x1,y1);
   circle (600,400,80);
end;
 
for x:=0 to 1000 do begin
    for x:=0 to 60 do                                   {Цикл стрелок}
    begin
    strelki(x1,y1);
end;
end;
end.