Составить блок схему к готовому коду

program karablik;
uses graphabc,crt;
var x,y,z,i: integer;
begin
SetWindowSize(840,640);
SetWindowTitle('Êîðàáëèê');
 
    //Ìîðå
    setpencolor(clblue);
    Line(0,500,1000,500);
    floodfill(300,600,clblue);
    
       //Êîðàáëü
       setpencolor(clblack);
       line(200,400,300,500);
       setpencolor (clblack);
       line(300,500,500,500);
       setpencolor(clblack);
       line(500,500,600,400);
       setpencolor(clblack);
       line(200,400,600,400);
       FloodFill(500,450,clmedgray);
            line(270,400,270,340);
            line(530,400,530,340);
            line(270,340,530,340);
            floodfill(350,390,clltgray);
            rectangle(490,360,510,400);
                line(230,400,230,380);
                line(330,400,330,380);
                line(480,400,480,380);
                line(570,400,570,380);
                line(230,380,570,380);
                line(230,390,570,390);
                    circle(300,360,6);
                    circle(330,360,6);
                    circle(360,360,6);
                    circle(390,360,6);
                    circle(420,360,6);
                    circle(450,360,6);
                    
                     //Òó÷è
                    ellipse(400,50,600,90);
                   floodfill(500,60,clskyblue);
                    ellipse(200,90,350,130);
                     floodfill(300,100,clskyblue);
                     ellipse(50,10,130,30);
                    floodfill(100,20,clskyblue);
                     ellipse(100,50,200,70);
                     floodfill(150,60,clskyblue);
 // äâèæåíèå ñîëíöà
for x:=100 to 600 do
begin
y:=250;
setbrushcolor(clyellow);
setpencolor(clwhite);
circle(x,y,50);
delay(50);
end;
end.