Нарисовать правильный пятиугольник, на каждой из сторон построить правильный треугольник

uses crt,graph;
var  i,x0,y0,r,gd,gm:integer;
     p:array[1..11]of PointType;{массив координат точек}
     a,d,h1,h2,r1:real;
begin
clrscr;
r:=50;{радиус 5-угольника}
h1:=r*cos(pi/10);{высота внутреннего треугольника}
d:=r*sin(pi/10);{половина стороны}
h2:=d/sin(pi/10);{высота внешних треугольников}
r1:=h1+h2;{внешний радиус}
InitGraph(gd,gm,'');
x0:=GetMaxX div 2;{центр экрана}
y0:=GetMaxY div 2;
a:=18;{начальный угол с осью Х}
for i:=1 to 10 do{координаты 10 вершин}
  begin
    if i mod 2=0 then{внутренние-5-угольник}
      begin
        p[i].x:=x0+round(R*cos(a*pi/180));
        p[i].y:=y0-round(R*sin(a*pi/180));
      end
    else{внешние-вершины 5 треугольников}
      begin
        p[i].x:=x0+round(R1*cos(a*pi/180));
        p[i].y:=y0-round(R1*sin(a*pi/180));
      end;
    a:=a+36;{наращиваем угол}
  end;
p[11].x:=p[1].x;{замыкаем полигон}
p[11].y:=p[1].y;
MoveTo(p[1].x,p[1].y);{встаем в первую вершину и рисуем боковые стороны треугольников}
SetColor(4);
for i:=1 to 11 do
LineTo(p[i].x,p[i].y);
MoveTo(p[2].x,p[2].y);{встаем во вторую вершину, рисуем 5-угольник}
SetColor(9);
for i:=2 to 8 do{через точку}
if i mod 2=0 then LineTo(p[i+2].x,p[i+2].y);
LineTo(p[2].x,p[2].y);{последняя сторона}
readln
end.