Построить звезду в и закрасить её полностью каким-либо цветом

Program Zvezda;
Uses GraphABC;
 
begin
SetBrushColor(clYellow);
Line(290, 111, 240, 190);
Line(240, 190, 171, 190);
Line(170, 190, 241, 250);
Line(241, 250, 209, 320);
Line(209, 320, 290, 289);
Line(290, 289, 369, 318);
Line(369, 318, 340, 248);
Line(340, 248, 410, 190);
Line(410, 190, 340, 190);
Line(340, 190, 289, 111);
 
//Внутренние линии
Line(289, 113, 289, 289);
Line(242, 249, 341, 190);
Line(340, 249, 242, 190);
Line(171, 191, 290, 220);
Line(291, 220, 411, 191);
Line(209, 319, 290, 222);
Line(290, 222, 369, 321);
 
Readln;
Closewindow;
End.

uses graphABC;
type Tpoint=record
            x,y:integer;
            end;
var  i,x0,y0,R,R1:integer;
     p:array[1..11]of TPoint;
     a:integer;
begin
x0:=windowwidth div 2;
y0:=windowheight div 2;
a:=18;
for i:=1 to 10 do
 begin
  if i mod 2=0 then
   begin
    p[i].x:=x0+round(50*cos(a*pi/180));
    p[i].y:=y0-round(50*sin(a*pi/180));
   end
  else
   begin
    p[i].x:=x0+round(100*cos(a*pi/180));
    p[i].y:=y0-round(100*sin(a*pi/180));
   end;
  a:=a+36;
 end;
p[11]:=p[1];
setpencolor(clRed);
polygon(p,11);
floodfill(x0,y0,clRed);
end.

uses graphABC;
type Tpoint=record  //тип точка
            x,y:integer;
            end;
var  i,x0,y0,R,R1:integer;
     p:array[1..11]of TPoint; //масив точек
     a:integer;
begin
x0:=windowwidth div 2; //координаты центра экрана
y0:=windowheight div 2;
a:=18;//начальный угол с осью Х
for i:=1 to 10 do //координаты 10 вершин звезды
 begin
  if i mod 2=0 then //впадины
   begin
    p[i].x:=x0+round(50*cos(a*pi/180));
    p[i].y:=y0-round(50*sin(a*pi/180));
   end
  else  //вершины
   begin
    p[i].x:=x0+round(100*cos(a*pi/180));
    p[i].y:=y0-round(100*sin(a*pi/180));
   end;
  a:=a+36;//наращиваем угол на 36 градусов
 end;
p[11]:=p[1];//замыкаем полигон
setpencolor(clRed);//рисуем красным цветом
polygon(p,11);
floodfill(x0,y0,clRed);//закрашиваем
end.