Создать анимацию строения атома в турбо паскале

Program P1; uses Graph,Crt; var d,m,i,k : integer; x,y,x0,y0,r : integer; a,b : real; begin d := detect; InitGraph(d,m,''); x0 := 640 div 2; y0 := 480 div 2; i := 1; r := 100; a := 0; b := 1; x := x0; y := y0; repeat Delay(100); a := a + 0.1; b := b - 0.1; ClearDevice; Circle(x0,y0,r); x := round(x0 + (r+20)*cos(a)); y := round(y0 + (r+20)*sin(a)); putpixel(x,y,65535); x := round(x0 + (r+40)*cos(b)); y := round(y0 + (r+40)*sin(b)); putpixel(x,y,65535); until KeyPressed = true; CloseGraph; end.