Назвать оси, нарисовать стрелки к осям, и добавить масштабирование

uses crt,graph;
const n=8;
var r,g,d,i,x0,y0:integer;
    p:array[1..n+1]of Pointtype;
    a,da:real;
    s:string;
begin
clrscr;
repeat
write('0<R<240 R=');
readln(r);
until r in [1..239];
g:=0;
initgraph(g,d,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
line(0,y0,2*x0,y0);{линии осей}
line(x0,0,x0,2*y0);
for i:=1 to 300 do{засечки на осях}
if i mod 20=0 then{через 20 пикселей}
 begin
  str(i,s);{преобразуем числа в строки}
  settextstyle(0,1,1);{вертикальный шрифт}
  line(x0+i,y0-3,x0+i,y0+3);{засечки}
  outtextXY(x0+i+5,y0+10,s);{подписи}
  line(x0-i,y0-3,x0-i,y0+3);
  outtextXY(x0-i+5,y0+10,'-'+s);
  settextstyle(0,0,1);{горизонтальный шрифт}
  line(x0-3,y0-i,x0+3,y0-i);
  outtextXY(x0-30,y0-i,s);
  line(x0-3,y0+i,x0+3,y0+i);
  outtextXY(x0-35,y0+i,'-'+s);
 end;
da:=360/n;
a:=0;
for i:=1 to n do
 begin
  p[i].x:=x0+round(r*cos(a*pi/180));
  p[i].y:=y0-round(r*sin(a*pi/180));
  a:=a+da;
  end;
p[n+1].x:=p[1].x;
p[n+1].y:=p[1].y;
SetColor(12);
for i:=1 to 4 do
 begin
  Line(p[i].x,p[i].y,p[i+4].x,p[i+4].y);
  end;
drawpoly(n+1,p);
Circle(x0,y0,r);
readln
end.