Изобразите на экране закрашенную пятиконечную звезду

uses crt,graph;
procedure Zvezda(x0,y0,r,c:integer);
var a,i:integer;
    p:array[1..11] of pointtype;
begin
a:=-18;
for i:=1 to 10 do
  begin
    if i mod 2=0 then
      begin
        p[i].x:=x0+round(2*r*cos(a*pi/180));
        p[i].y:=y0-round(2*r*sin(a*pi/180));
      end
    else
      begin
        p[i].x:=x0+round(r*cos(a*pi/180));
        p[i].y:=y0-round(r*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(c);
for i:=1 to 11 do
LineTo(p[i].x,p[i].y);
setfillstyle(1,c);
floodfill(x0-1,y0,c);
end;
 
var  xc,yc,r:integer;
begin
InitGraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r:=10;
repeat
Zvezda(xc,yc,r,12);
delay(100);
Zvezda(xc,yc,r,0);
r:=r+5;
until 2*r>yc;
Zvezda(xc,yc,r,12);
setcolor(14);
outtextXY(xc-50,yc,'Press any key...');
readkey;
repeat
Zvezda(xc,yc,r,12);
delay(100);
Zvezda(xc,yc,r,0);
r:=r-5;
until r<5;
setcolor(14);
outtextXY(xc-60,yc,'Programma zavershena');
outtextXY(xc-50,yc+20,'Press any key...');
readkey
end.