Нарисовать на экране две точки, движущиеся по концентрическим окружностям с одинаковыми угловыми скоростями в различных направлениях

uses GraphABC;
var x0,y0,x,y,R1,R2,rk1,rk2,u: integer;
 
begin
 
  SetWindowSize(600,600);           //размер окна
  r1:=250; r2:=150;
  rk1:=20; rk2:=30;
  lockdrawing;                      //чтобы экран не мигал при перерисовке
  x0:=300; y0:=300;                 //координаты центра дуги
repeat
  for u:=0 to 360 do               //цикл
  begin
    ClearWindow;                    //очистить окно
    SetPenWidth(1);                 //толщина пера
    setbrushcolor(clwhite);
    circle(x0,y0,r1);
    circle(x0,y0,r2);
    SetPenWidth(3);                 //толщина пера
    setbrushcolor(clyellow);        //цвет
    x:=x0+Round(r1*sin(Pi*u/180));  //координаты центра второго круга по х
    y:=y0-Round(r1*cos(Pi*u/180));  //координаты центра второго круга по н
    circle(x,y,rk1);                 //круг
    x:=x0-Round(r2*sin(Pi*u/180));  //координаты центра второго круга по х
    y:=y0+Round(r2*cos(Pi*u/180));  //координаты центра второго круга по н
    circle(x,y,rk2);                 //круг
    sleep(20);                      //задержка
    Redraw;                         //перерисовка
  end;
until false;
end.

 x:=x0+Round(r1*sin(Pi*u/180));  //координаты центра первого круга по х
 y:=y0-Round(r1*cos(Pi*u/180));  //координаты центра первого круга по y
 circle(x,y,rk1);                 //круг
 x:=x0+Round(r2*sin(Pi*u/180));  //координаты центра второго круга по х  //поменять - на + 
 y:=y0+Round(r2*cos(Pi*u/180));  //координаты центра второго круга по y