Нужно сделать часы со стрелками. Помогите пожалуйста убрать следы, оставляемые стрелками после изменения положения

program z1 ;
uses crt, GraphABC;
var x,y,r,i,r2: integer ;
    a,b: real ;
begin
 Circle(312,260,65) ;
  FloodFill(312,260,clwhite) ;
  x := 312 ;
  y := 260 ;
  r := 60 ; r2 := 50 ;
  a := 1.57 ; b := 0 ;
  
  repeat 
    SetPenColor(clBlack) ;
    Line(x,y,round(x+r*cos(a)),round(y-r*sin(a))) ;
    Line(x,y,round(x+r2*cos(b)),round(y-r2*sin(b))) ;
    delay(500) ;
    SetPenColor(clwhite) ;
    Line(x,y,round(x+r*cos(a)),round(y-r*sin(a))) ;
    Line(x,y,round(x+r2*cos(b)),round(y-r2*sin(b))) ;
    a := a - 0.12 ;
    b := b - 0.01 ;
  until keypressed ;
end.

begin
  x := 312 ;
  y := 260 ;
  r := 60 ; r2 := 50 ;
  a := 1.57 ; b := 0 ;
  lockdrawing;
  repeat 
    clearwindow;
    Circle(312,260,65) ;
    Line(x,y,round(x+r*cos(a)),round(y-r*sin(a))) ;
    Line(x,y,round(x+r2*cos(b)),round(y-r2*sin(b))) ;
    delay(500) ;
    a := a - 0.12 ;
    b := b - 0.01 ;
    redraw
  until keypressed ;
end.