Как построить блок схему к рисунку в паскале?

[Cherry2196]

мне задали построить вид школы сверху.
нужно составить блок-схему к ней.

вот программа

Program pr1;
uses CRT,graph;
var
gd,gm:integer;
a,b,s: integer;
begin
clrscr;
gd:=0;
initgraph(gd, gm,'c:\tp7\bgi');
setbkcolor(6); {korichneviy fon}

{zdanie}
setcolor(7);{tsvet kontura linii}
line(140,220,275,220);
line(140,400,580,400);
line(140,400,140,220);
line(580,400,580,280);
line(465,280,580,280);
line(465,330,465,280);
line(465,330,275,330);
line(275,330,275,220);
setfillstyle(9,7); {1-bIo parametr eto tip zakrashivania, 2-oi eto tsvet zakrashivaniya}
floodfill(200,300,7);floodfill(200,300,7);{1,2 parametri eto koordinatbI tochki prinadlezhei figure}

setcolor(7);{begovaya dorozhka}
rectangle(90,35,530,205);
setfillstyle(1,7);
floodfill(92,40,7);

setcolor(2);{gazon polya}
rectangle(120,60,500,180);
setfillstyle(11,2);
floodfill(123,175,2);

{cxema futbolnogo polya}
setcolor(15);
line(310,60,310,180); {srednyaya liniya polya}
 {levaya}                               {pravaya}
line(120,80,187,80);                line(500,80,450,80);
line(120,160,187,160);              line(450,80,450,160);
line(187,80,187,160);               line(450,160,500,160);

line(120,100,150,100);              line(500,140,470,140);
line(120,140,150,140);              line(500,100,470,100);
line(150,100,150,140);              line(470,100,470,140);

line(108,130,108,110);              line(500,110,512,110);
line(108,110,120,110);              line(512,110,512,130);
line(108,130,120,130);              line(512,130,500,130);
setcolor(15);
ellipse(310,120,25,380,20,20);

setcolor(1);
line(55,70,60,70);
line(55,73,60,73);
line(55,76,60,76);
line(55,79,60,79);
line(55,82,60,82);
line(55,85,60,85);
line(55,88,60,88);
line(55,70,55,88);
line(60,70,60,88);

setcolor(3);
line(57,95,57,108);
line(57,117,57,128);

setcolor(7);
rectangle(30,290,140,310);
setfillstyle(1,7);
floodfill(52,300,7);

setcolor(1);
rectangle(30,10,630,470);
{kriltso}
setcolor(14);
rectangle(130,290,140,310);
setfillstyle(1,14);
floodfill(131,294,14);

setcolor(14);
rectangle(126,295,134,305);
setfillstyle(1,14);
floodfill(127,300,14);

setcolor(7);
rectangle(285,230,455,320);
setfillstyle(1,7);
floodfill(400,300,7);

setcolor(2);
rectangle(300,250,440,300);
setfillstyle(1,2);
floodfill(352,270,2);

setcolor(2);
circle(150,430,16);
setfillstyle(1,2);
floodfill(152,430,2);

setcolor(2);
circle(230,430,16);
setfillstyle(1,2);
floodfill(230,430,2);

setcolor(2);
circle(270,430,16);
setfillstyle(1,2);
floodfill(270,430,2);

setcolor(2);
circle(330,430,16);
setfillstyle(1,2);
floodfill(330,430,2);

setcolor(2);
circle(380,430,16);
setfillstyle(1,2);
floodfill(390,430,2);

setcolor(2);
circle(330,430,16);
setfillstyle(1,2);
floodfill(330,430,2);

setcolor(2);
circle(70,430,16);
setfillstyle(1,2);
floodfill(80,430,2);

setcolor(2);                   setcolor(2);
circle(70,380,16);             circle(580,80,16);
setfillstyle(1,2);              setfillstyle(1,2);
floodfill(80,380,2);            floodfill(580,80,2);

setcolor(2);                     setcolor(2);
circle(70,340,16);               circle(580,125,16);
setfillstyle(1,2);               setfillstyle(1,2);
floodfill(80,340,2);            floodfill(580,125,2);

setcolor(2);                  setcolor(2);
circle(70,268,16);             circle(580,170,16);
setfillstyle(1,2);              setfillstyle(1,2);
floodfill(80,268,2);            floodfill(580,170,2);

setcolor(2);                    setcolor(2);
circle(70,230,16);              circle(580,215,16);
setfillstyle(1,2);              setfillstyle(1,2);
floodfill(80,230,2);            floodfill(580,215,2);

setcolor(2);
outtextxy(570,450,'-derevo');
setcolor(2);
circle(552,450,16);
setfillstyle(1,2);
floodfill(563,451,2);
readkey;
closegraph;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.