Сделать так чтобы штрихпунктирные окружности двигались по окружности и увеличивали/уменьшали радиус

uses graphABC;
var
x,y : integer;
k : word;
 
 
begin
setwindowsize(700,500);
setpencolor(clred);
setpenstyle(psdash);
setpenwidth(1);
Circle(370,240,140);
setpencolor(clblue);
setpenstyle(psSolid);
setpenwidth(3);
Circle(370,240,100);
setpencolor(clred);
setpenstyle(psdash);
setpenwidth(1);
Circle(370,240,60);
setpencolor(clblack);
setpenstyle(pssolid);
line(370,240,180,180);
line(180,180,200,200);
line(180,180,210,180);
line(370,240,570,120);
line(570,120,540,120);
line(570,120,560,145);
line(370,240,430,320);
line(430,320,430,290);
line(430,320,400,310);
setfontsize(18);
textOut(430,270,'R');
line(312,223,330,240);
line(312,223,337,220);
line(490,170,480,190);
line(490,170,465,170);
setfontsize(15);
textOut(300,190,'r1');
setfontsize(15);
textOut(485,125,'r2');
setfontsize(20);
textOut(190,145,'E1');
setfontsize(20);
textOut(580,125,'E2');
 
end.

uses graphABC,crt;
type duga=record
          a1,a2:real;
          end;
var xc,yc,r:integer; //центр и радиус синей окружности
procedure fon; //рисование фона, то что не движется
var x,y,r1:integer;
begin
r1:=5*r div 2;
setpencolor(clblue);
setpenwidth(3);
Circle(xc,yc,r);
setpencolor(clblack);
setpenwidth(1);
setfontsize(12);
x:=xc+round(r*cos(-pi/4));
y:=yc-round(r*sin(-pi/4));
line(xc,yc,x,y);
line(x,y,x-5,y-20);
line(x,y,x-20,y-5);
textOut(x-5,y-40,'R');
x:=xc+round(r1*cos(0.9*pi));
y:=yc-round(r1*sin(0.9*pi));
line(xc,yc,x,y);
line(x,y,x+15,y-5);
line(x,y,x+10,y+15);
textOut(x-5,y-30,'E1');
x:=xc+round(r1*cos(0.1*pi));
y:=yc-round(r1*sin(0.1*pi));
line(xc,yc,x,y);
line(x,y,x-15,y-5);
line(x,y,x-10,y+15);
textOut(x-15,y-30,'E2');
end;
 
procedure p(u,du,k:real;r,n:integer;s:string);//рисование того что движется
var a:array[1..100] of duga;
    x,y,i:integer;
begin
for i:=1 to n  do
 begin
  a[i].a1:=u;
  a[i].a2:=u+du/2;
  u:=u+du
 end;
setpencolor(clRed);
for i:=1 to n do
arc(xc,yc,r,a[i].a1,a[i].a2);
setpencolor(clBlack);
x:=xc+round(r*cos(k*pi));
y:=yc-round(r*sin(k*pi));
if k>0.5 then
 begin
  line(x,y,x+15,y-5);
  line(x,y,x+10,y+15);
  textOut(x-5,y-30,s);
 end
else
 begin
  line(x,y,x-15,y-5);
  line(x,y,x-10,y+15);
  textOut(x,y-35,s);
 end;
end;
var n,r1,r2:integer;
    u,du:real;
begin
setwindowsize(700,500);
hidecursor;
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=100;
r1:=50;
r2:=150;
n:=15;//количество штрихов=дуг
du:=360/n;//шаг по кругу
u:=0; //начальный угол
lockdrawing;
repeat
clearwindow;
while (r1<=97)and not keypressed do
  begin
   clearwindow;
   textout(xc-100,20,'Завершение любая клавиша');
   fon;
   r1:=r1+2;
   r2:=r2+2;
   u:=u+2;
   p(u,du,0.9,r1,n,'R1');
   p(u,du,0.1,r2,n,'R2');
   sleep(100);
   redraw;
  end;
 while (r2>=103)and not keypressed do
  begin
   clearwindow;
   textout(xc-100,20,'Завершение любая клавиша');
   fon;
   r1:=r1-2;
   r2:=r2-2;
   u:=u+2;
   p(u,du,0.9,r1,n,'R1');
   p(u,du,0.1,r2,n,'R2');
   sleep(100);
   redraw;
  end;
until keypressed
end.