Движение круга по дуге

uses crt, GraphABC;
var x0,y0,x,y,R1,r2,u,i: integer;
 
begin
  HideCursor;                       //скрыть курсор
  SetWindowSize(500,500);           //размер окна
  write('R1=');                     //запрос и сохранение первого радиуса
  readln(r1);
  write('R2=');                     //запрос и сохранение второго радиуса
  readln(r2);
  lockdrawing;                      //чтобы экран не мигал при перерисовке
  x0:=250; y0:=250; u:=0;           //координаты центра, начальное значение угла
  for i:=1 to 1000 do               //цикл
  begin
    ClearWindow;                    //очистить окно
    SetPenWidth(5);                 //толщина пера =5
    setbrushcolor(clgreen);         //цвет
    circle(x0,y0,r1);               //рисуем основной круг
    u:=u+1;                         //добавляем "градус"
    x:=x0+Round(r1*sin(Pi*u/180));  //координаты центра второго круга по х
    y:=y0-Round(r1*cos(Pi*u/180));  //координаты центра второго круга по н
    SetPenWidth(3);                 //толщина пера
    setbrushcolor(clyellow);        //цвет
    circle(x,y,r2);                 //круг
    sleep(10);                      //задержка
 
    Redraw;                         //перерисовка
  end;
end.

uses crt, GraphABC;
var x0,y0,x,y,R1,r2,u,i: integer;
 
begin
  HideCursor;                       //скрыть курсор
  SetWindowSize(700,500);           //размер окна
  r1:=250;
  r2:=20;
  lockdrawing;                      //чтобы экран не мигал при перерисовке
  x0:=350; y0:=300;                 //координаты центра дуги
  for u:=-90 to 90 do               //цикл
  begin
    ClearWindow;                    //очистить окно
    SetPenWidth(5);                 //толщина пера =5
    x:=x0+Round(r1*sin(Pi*u/180));  //координаты центра второго круга по х
    y:=y0-Round(r1*cos(Pi*u/180));  //координаты центра второго круга по н
    SetPenWidth(3);                 //толщина пера
    setbrushcolor(clyellow);        //цвет
    circle(x,y,r2);                 //круг
    sleep(20);                      //задержка
 
    Redraw;                         //перерисовка
  end;
end.