Исправьте ошибку в часах: стрелка уходит за пределы круга

uses crt,graphabc;
 var x,y,x1,y1,dx,dy,r:integer;
begin
x:=400;
x1:=400;
y:=250;
y1:=100;
dx:=5;
dy:=1;
 repeat
 begin
 setwindowsize (800,500);
 setpenwidth (6);
 setpencolor (clblack);
 circle (400,250,150);
 end;
 begin
 setpencolor (clred);
 line (x,y,x1,y1);
 delay (200);
 x1:=x1+dx;
 y1:=y1+dy;
 end;
 until
  keypressed;
end.

uses crt,graphABC;
var xc,yc,x1,y1,x2,y2,r1,r2:integer;
    k:integer;
    a1,a2:real;
begin
hidecursor;
SetWindowSize(400,400);
xc:=windowwidth div 2;
yc:=windowheight div 2;
r1:=100; r2:=80;
TextOut(xc-80,15,'Завершение любая клавиша');
Setpencolor(clBlue);
SetPenWidth(5);
circle(xc,yc,r1+20);
SetFontSize(12);
SetFontColor(clBlack);
TextOut(xc-10,yc-r1-15,'12');
TextOut(xc-5,yc+r1-3,'6');
TextOut(xc+r1+3,yc,'3');
TextOut(xc-r1-10,yc,'9');
a1:=0;a2:=0;
repeat
x1:=xc+round(r1*sin(Pi*a1/180));
y1:=yc-round(r1*cos(Pi*a1/180));
SetPenColor(clBlack);
Line(xc,yc,x1,y1);
x2:=xc+round(r2*sin(Pi*a2/180));
y2:=yc-round(r2*cos(Pi*a2/180));
SetPenColor(clRed);
Line(xc,yc,x2,y2);
sleep(1000);
SetPenColor(clWhite);
Line(xc,yc,x1,y1);
SetPenColor(clWhite);
Line(xc,yc,x2,y2);
a1:=a1+12;
a2:=a2+1;
Until keypressed;
SetPenColor(clBlack);
Line(xc,yc,x1,y1);
SetPenColor(clRed);
Line(xc,yc,x2,y2);
end.