Нарисовать в паскале рисунок, как на фото

uses graphABC;
//процедура рисования стрелок на концах линий
procedure strelka(x,y,d:integer;u:real);
//параметры: координаты конца линии, длина стрелки, направление линии
var p:array of Point;
begin
setlength(p,4);
p[0].X:=x;
p[0].Y:=y;
p[1].X:=p[0].X+round(-d*cos(u+pi/8));
p[1].Y:=p[0].Y-round(-d*sin(u+pi/8));
p[2].X:=p[0].X+round(-d*cos(u-pi/8));
p[2].Y:=p[0].Y-round(-d*sin(u-pi/8));
p[3]:=p[0];
Brush.Color:=clBlack;
polygon(p); //рисуем стрелку
end;
var x0,y0,r,x1,y1:integer;
begin
r:=100; 
Window.Width:=4*r+20;
Window.Height:=4*r+20;
Window.CenterOnScreen;
//начало координат
x0:=windowwidth div 2;
y0:=windowheight div 2;
//концы осей
x1:=x0+2*r+10;
y1:=y0-2*r-10;
//оси
line(x0-x1,y0,x1,y0);
line(x0,y1,x0,Window.Height-y1);
strelka(x1,y0,10,0);
strelka(x0,y1,10,pi/2);
//области
Brush.Color:=clWhite;
circle(x0-r,y0+r,r);
arc(x0+r,y0,r,0,180);
//Brush.Color:=clSilver;
floodfill(x0-5,y0+5,clSilver);
floodfill(x0+5,y0-5,clSilver);
//обозначение радиусов
x1:=x0-r+round(r*cos(pi/4));
y1:=y0+r-round(r*sin(pi/4));
line(x0-r,y0+r,x1,y1);
strelka(x1,y1,10,pi/4);
x1:=x0+r+round(r*cos(pi/4));
y1:=y0-round(r*sin(pi/4));
line(x0+r,y0,x1,y1);
strelka(x1,y1,10,pi/4);
//пунктирные линии
Pen.Width:=1;
Pen.Style:=psDash;
line(x0-r,y0+r,x0-r,y0);
line(x0-r,y0+r,x0,y0+r);
//подписи осей и радиуса
Brush.Style:=bsClear;
TextOut(x0+2*r,y0+10,'X');
TextOut(x0+5,y0-2*r ,'Y');
TextOut(x0+r+r div 4,y0-r div 2,'R');
TextOut(x0-r div 2,y0+r div 2,'R');
end.