Составление кода графика, изменяющего форму при смене параметра R

uses crt,graph;
function F(x,r:real):real;
begin
if x<-5*r/3 then F:=-r
else if(x>=-5*r/3)and(x<-r) then F:=3*(x+r)/2
else if(x>=-r)and(x<r) then F:=sqrt(r*r-x*x)
else if (x>=r)and(x<8*r/3)then F:=3*(x-r)/5
else F:=r;
end;
var xc,yc,i,px,py:integer;
    x,r,y,m,w,x1,dx,y1:real;
    s:string;
begin
clrscr;
write('Vvedite radius r=');
readln(r);
write('Vvedite argumet x=');
readln(x);
y:=F(x,r);
xc:=0;
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
if abs(x)>8*r/3 then w:=abs(x)+3
else w:=8*r/3+3;
m:=(xc-30)/w;
setbkcolor(15);{цвет фона}
setcolor(8);{цвет линий}
line(0,yc,getmaxX,yc);{оси}
line(xc,0,Xc,getmaxY);
for i:=1 to round(w)+1 do{максимальное количество засечек в одну сторону}
  begin
    line(xc-3,yc+round(i*m),xc+3,yc+round(i*m));{засечки на оси У}
    line(xc-3,yc-round(i*m),xc+3,yc-round(i*m));
    line(xc+round(i*m),yc-3,xc+round(i*m),Yc+3); {засечки на оси Х}
    line(xc-round(i*m),yc-3,xc-round(i*m),Yc+3);
  end;
{подпись радиуса}
str(r:0:1,s);
outtextXY(xc-round(r*m)+3,yc+10,'-'+s);
outtextXY(xc+round(r*m)+3,yc+10,s);
outtextXY(xc+5,yc-round(r*m)-10,s);
outtextXY(xc+5,yc+round(r*m)+1,'-'+s);
{подписи точек изгиба}
str(5*r/3:0:1,s);
outtextXY(xc-round(5*r*m/3)+3,yc+10,'-'+s);
str(8*r/3:0:1,s);
outtextXY(xc+round(8*r*m/3)+3,yc+10,s);
{штриховые линии}
setlinestyle(2,0,1);
line(xc,yc-round(r*m),xc+round(8*r*m/3),yc-round(r*m));
line(xc+round(8*r*m/3),yc,xc+round(8*r*m/3),yc-round(r*m));
line(xc,yc+round(r*m),xc-round(5*r*m/3),yc+round(r*m));
line(xc-round(5*r*m/3),yc,xc-round(5*r*m/3),yc+round(r*m));
{центр}
outtextXY(xc+5,yc+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,yc-10,'X');
outtextXY(xc-10,10, 'Y');
setcolor(8);
{график}
x1:=-w;
dx:=0.001;
while x1<=w do
   begin
     x1:=x1+dx; {наращиваем х}
     px:=xc+round(x1*m); {изменение по оси Х}
     y1:=F(x1,r); {график в реальных координатах}
     py:=yc-round(y1*m);{в экранных}
     putpixel(px,py,8);
   end;
{точка}
setcolor(12);
line(xc+round(x*m),yc,xc+round(x*m),yc-round(y*m));
setlinestyle(0,0,3);
circle(xc+round(x*m),yc-round(y*m),1);
str(x:0:1,s);
outtextXY(50,50,'x='+s);
str(y:0:3,s);
outtextXY(120,50,'y='+s);
readln
end.