Движение закрашенной окружности

uses GraphABC;
const R0 = 100;  R = 30;   w=0.8;
var x0,y0,x,y:integer;
    angle:real;
begin
  x0:=Window.Width div 2;
  y0:=Window.Height div 2;
  DrawCircle(x0,y0,R0);
  x:=x0 + R0 + R;   
  y:=y0;  
  angle:=0;
  Brush.Color:=clGreen;
  Circle(x,y,R);
  Sleep(1000);
    
  LockDrawing;
  while True do begin
    ClearWindow;
    angle:=angle+w;
    x:=x0+round((R0+R)*cos(angle*Pi/180));
    y:=y0+round((R0+R)*sin(angle*Pi/180));
    if angle > 360 then angle:=angle-360;
    Circle(x,y,R);
    DrawCircle(x0,y0,R0);
    Redraw;
    Sleep(30);
  end;
end.

uses crt,graph;
var x0,y0,x1,y1,r,r1,i:integer;
begin
initgraph(x1,y1,'');
x0:=getmaxX div 2;y0:=getmaxY div 2;
r:=100;r1:=10;
i:=1;
outtextXY(260,40,'Vyhod - Any key');
i:=1;
repeat
x1:=x0+round((r+r1)*sin(i*pi/180));
y1:=y0-round((r+r1)*cos(i*pi/180));
setcolor(12);
circle(x1,y1,r1);
setfillstyle(1,12);
floodfill(x1,y1,12);
delay(50);
setcolor(0);
circle(x1,y1,r1);
setfillstyle(1,0);
floodfill(x1,y1,0);
i:=i+3;
until keypressed;
end.