нужна программа на Паскаль чтобы нарисовать флаг Америки. Помогите пожайлуста

uses Graph;

Procedure Star(x, y: integer);
begin
Line(x, y, x+3, y+9);
Line(x, y, x-3, y+9);
Line(x-10, y+10, x-4, y+10);
Line(x-10, y+10, x-5, y+17);
Line(x+10, y+10, x+4, y+10);
Line(x+10, y+10, x+5, y+17);
Line(x-6, y+25, x-4, y+18);
Line(x-6, y+25, x, y+20);
Line(x+6, y+25, x+4, y+18);
Line(x+6, y+25, x, y+20);
FloodFill(x, y+15, White);
end;

var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
i, j: integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'..\BGI\');
ErrCode := GraphResult;
if ErrCode = grOk then
begin { Do graphics }
SetBkColor(white);
SetColor(Red);
SetFillStyle(SolidFill, Red);
for i:=0 to 7 do
Bar(0, i*GetMaxY div 13 * 2, GetMaxX, GetMaxY div 13 + i*GetMaxY div 13 * 2+1);

SetFillStyle(SolidFill, Blue);
Bar(0, 0, GetmaxX div 2, GetMaxY div 13 + 3*GetMaxY div 13 * 2+1);
SetColor(White);
SetFillStyle(SolidFill, White);

for j:=0 to 4 do
for i:=0 to 5 do
Star(GetMaxX div 24 + i*GetMaxX div 12, 10 + j*GetMaxY * 7 div 65);

for j:=0 to 3 do
for i:=0 to 4 do
Star(GetMaxX div 12 + i*GetMaxX div 12, 38 + j*GetMaxY * 7 div 65);
SetColor(2);
Setlinestyle(solidLn, 0, ThickWidth);

Line(10, 10, 10, 200);
Line(10, 10, 100, 10);
Line(10, 100, 100, 100);
Line(100, 100, 100, 200);
Line(100, 200, 10, 200);

Line(120, 10, 180, 100);
Line(240, 10, 120, 200);

Line(260, 10, 260, 200);
Line(300, 10, 300, 200);
Line(340, 10, 340, 200);
Line(260, 200, 340, 200);

Line(360, 100, 420, 100);

Line(230, 250, 330, 450);
Line(330, 250, 230, 450);

Line(350, 250, 400, 350);
Line(450, 250, 350, 450);

Line(470, 250, 470, 450);
Line(570, 250, 470, 450);
Line(570, 250, 570, 450);
Line(500, 240, 520, 240);
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

Патриотизм в тебе!