Сделать флаг Бразилии

ВОТ что я сделал
uses crt,graphabc;
begin
setwindowsize(640, 400);
setpencolor(clGreen);
 
rectangle(0, 0, 640, 400);
setpencolor(clgreen);
line(320,49,55,200);
line(55,200,320,350);
line(320,350,585,200);
line(585,200,320,49);
 
circle(320,200,90);
floodfill(310,230,clBlue);
 
setpenwidth(0);
line(240,160,278,158);{дуги початок}
line(278,158,315,163);
line(315,163,341,169);
line(341,169,410,199);
line(240,160,234,173);
line(234,173,247,172);
line(247,172,254,172);
line(254,172,276,173);
line(276,173,301,175);
line(301,175,320,179);
line(320,179,342,186);
line(342,186,365,194);
line(365,194,372,198);
line(372,198,391,207);
line(391,207,400,212);
line(400,212,408,220);
line(407,210,410,199);{дуги кінець}
 
floodfill(90,120,clgreen);
floodfill(160,200,clyellow);{залівка}
floodfill(300,170,clwhite);
setpencolor(clwhite);
setbrushcolor(clblue);
textout(250,190,'*');{zirka}
setpenwidth(2);
setpencolor(clgreen);
setbrushcolor(clwhite);
circle(250,166,5);   {напис початок}
line(260,169,260,162);{o}
line(260,162,265,162);{4r}
line(265,162,265,165);
line(265,165,260,165);
line(270,170,260,165);
line(275,160,275,170);{D}
 
 
 
 
end.