Имитация часов. Движение по часовой стрелке

Program Clock;
USES Crt,graphABC;
var x,y:integer;
    k:integer;
    a,r:real;
 
    pic:string;
 
begin
SetWindowSize(400,400);
 
SetFontStyle(fsBoldItalicUnderline);
SetFontName('Arial');
SetFontColor(clOlive);
 pic:=('devushka3'+'.bmp');
 k:=loadPicture(pic);
 
       a:=0;
 
       SetPenWidth(5);
       Repeat
 
   SetFontSize(14);
   DrawPicture(k,0,0,400,400);
   TextOut(100,380,'"Эмуляция часов"');
   SetFontSize(10);
   SetFontColor(clBlack);
   TextOut(187,70,'"12"');
   TextOut(190,200,'"6"');
   TextOut(255,140,'"3"');
   TextOut(125,140,'"9"');
       
       
       
          a:=a+0.01;
          r:=100;
          SetPenColor(clBlack);
          x:=round(200+r*Cos(Pi*a/180));
            y:=round(200-r*Sin(Pi*a/180));
          Line(200,145,x,y);
 
          a:=a+0.05;
          r:=80;
          SetPenColor(clred);
          x:=round(200+r*Cos(Pi*a/180));
            y:=round(200-r*Sin(Pi*a/180));
          Line(200,145,x,y);
          SetPenColor(clWhite);
          fillrect(0,0,0,0);
 
 
       Until a>=720
       
       
 
end.

Program Clock;
USES Crt,graphABC;
var xc,yc,x1,y1,x2,y2,r1,r2:integer;
    k:integer;
    a1,a2:real;
    pic:string;
begin
hidecursor;
SetWindowSize(400,400);
SetFontStyle(fsBoldItalicUnderline);
SetFontName('Arial');
SetFontColor(clOlive);
pic:=('cvet.bmp');
k:=loadPicture(pic);
xc:=windowwidth div 2;
yc:=windowheight div 2;
SetPenWidth(5);
a1:=0;a2:=0;
r1:=100; r2:=80;
repeat
DrawPicture(k,0,0,400,400);
TextOut(100,380,'"Эмуляция часов"');
SetFontSize(10);
SetFontColor(clBlack);
TextOut(xc,yc-r1-10,'"12"');
TextOut(xc,yc+r1+10,'"6"');
TextOut(xc+r1+10,yc,'"3"');
TextOut(xc-r1-10,yc,'"9"');
SetPenColor(clBlack);
x1:=xc+round(r1*sin(Pi*a1/180));
y1:=yc-round(r1*cos(Pi*a1/180));
Line(xc,yc,x1,y1);
SetPenColor(clRed);
x2:=xc+round(r2*sin(Pi*a2/180));
y2:=yc-round(r2*cos(Pi*a2/180));
Line(xc,yc,x2,y2);
sleep(1000);
clearwindow;
a1:=a1+12;
a2:=a2+6;
Until keypressed
end.