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

Формулировка задачи:

                    Листинг программы
                
 
                            
                        
program Aruzhan; 
uses graphabc;
var i:integer; 
 
begin 
lockDrawing;
for I:=1 to 500 do 
 
begin 
ClearWindow; 
setbrushcolor (clyellow); 
circle (60+I,50,40);
 
setwindowwidth (800);
setwindowheight (600);
setpenwidth (1);
 
setpencolor (clblue);
setbrushcolor (clblue);
rectangle (500,500,0,300);
Floodfill (500,500,clblue);
 
setpencolor(clGreen);
setbrushcolor(clGreen);
rectangle(800,383,0,800);
FloodFill (800,383,clgreen);
 
RoundRect(200, 300, 600, 350, 20, 20);                 
FloodFill(400, 320, clbrown);
Circle(290, 350, 30);                                  
FloodFill(300, 360, clblack);
Circle(510, 350, 30);                                   
FloodFill(520, 360, clblack);
  
begin
    
Line(300, 300, 340, 250);
Line(340, 250, 470, 250);
Line(470, 250, 510, 300);
Line(405, 250, 405, 350);
Line(510, 300, 510, 320);
Line(300, 300, 300, 320);
Line(380, 310, 390, 310);
Line(480, 310, 490, 310);
Line(300, 300, 510, 300);
end;
begin
   
SetPenColor(clgreen);
Circle(510, 350, 10);                              
Circle(290, 350, 10);                              
end;
 
setpencolor (clblack); 
setbrushcolor (clblack);
rectangle (90, 90, 210, 450 );
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (150, 260, 50);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (150, 370, 50);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (140, 450, 160, 600) ;
 
redraw;
sleep(1);
end;
end.

Решение задачи: «Составить блок-схему к готовому коду»

textual
                            Листинг программы 
                        
 
                            
                        
program Aruzhan;
uses graphabc;
var i:integer;
begin
setwindowwidth (800);
setwindowheight (600);
centerwindow;
lockDrawing;
for I:=1 to 200 do
 begin
  ClearWindow;
  setbrushcolor (clyellow);
  circle (60+5*I,50,40);
  setpencolor (clblue);
  setbrushcolor (clblue);
  rectangle (500,500,0,300);
  setpencolor(clGreen);
  setbrushcolor(clGreen);
  rectangle(800,383,0,800);
  setpencolor(clBrown);
  setbrushcolor(clBrown);
  RoundRect(200, 300, 600, 350, 20, 20);
  setpencolor(clBlack);
  setbrushcolor(clBlack);
  Circle(290, 350, 30);
  Circle(510, 350, 30);
  Line(300, 300, 340, 250);
  Line(340, 250, 470, 250);
  Line(470, 250, 510, 300);
  Line(405, 250, 405, 350);
  Line(510, 300, 510, 320);
  Line(300, 300, 300, 320);
  Line(380, 310, 390, 310);
  Line(480, 310, 490, 310);
  Line(300, 300, 510, 300);
  SetPenColor(clgreen);
  Circle(510, 350, 10);
  Circle(290, 350, 10);
  setpencolor (clblack);
  setbrushcolor (clblack);
  rectangle (90, 90, 210, 450 );
  if i mod 21 in [1..10] then
   begin
    setpencolor (clred);
    setbrushcolor (clred);
   end
  else
   begin
    setpencolor (clblack);
    setbrushcolor (clblack);
   end;
  circle (150, 150, 50);
  setpencolor (clyellow);
  setbrushcolor (clyellow);
  circle (150, 260, 50);
  setpencolor (clgreen);
  setbrushcolor (clgreen);
  circle (150, 370, 50);
  setpencolor (clblack);
  setbrushcolor (clblack);
  rectangle (140, 450, 160, 600) ;
  sleep(50);
  redraw;
 end;
unlockdrawing;
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
end.