Нужна блок схема к программе...пожайлуста выручайте

begin
drv:=VGA;
  mode:=VGAHI;
  initgraph(drv,mode,'');
color:=15;
menu:  MS:=1;
  ppd:=380;
  mnb:=0;
  mnp:=1;
  mp[0].x:=0;
  mp[0].y:=0;
  mp[0].z:=0;cleardevice;
{ ѓҐ*Ґа*жЁп ¬®¤Ґ«Ё }
setcolor(white);
outtextxy(150,70,'');
  outtextxy(200,80,'k: Stvorutu kub');
  outtextxy(200,90,'t: Stvorutu tranzustor');
  outtextxy(200,100,'c: kolir');
  outtextxy(200,110,'q: Vuhid');
  outtextxy(200,120,'ESC: pri vukonanni poverne vas do menyu');
  repeat
  c:=readkey;
  until (c='k')or(c='t')or(c='q')or(c='c');
  case c of
  'k':cln(0,0,0,10,10,4);
  't':generate(30);
  'c':
 
 begin                  
 cleardevice;
  outtextxy(150,50,'1: Cuniy');
  outtextxy(150,60,'2: Zeleniy');
  outtextxy(150,70,'3: Biryuzovyi');
  outtextxy(150,80,'4: Chervoniu');
  outtextxy(150,90,'5: Fioletovui');
  outtextxy(150,100,'6: koruchnevui');
  outtextxy(150,110,'7: svitlo-siruy');
  outtextxy(150,120,'8: temno-siruy');
  outtextxy(150,130,'9: Blakutnuy');
  outtextxy(150,140,'10: Salatovuy');
  outtextxy(150,150,'11: svitlo-biryuzovui');
  outtextxy(150,160,'12: svitlo-chervonui');
  outtextxy(150,170,'13: rozovui');
  outtextxy(150,180,'14: jovtui');
  outtextxy(150,190,'15: bilui');
  repeat
  readln(color);
  until (color>0)and(color<=15);
  goto menu;
  end;
  'q':closegraph;
end;  
 
setcolor(color);
  
  repeat
      to_2d(ppd,40);
    cleardevice;
    output;
  setcolor(white);
    outtextxy(10,440,' Up,Down,Left,Right,"/","*" - Obertannya');
    outtextxy(10,450,' Ins,Del,Home,End,PgUp,PgDn - Peremishchennya ');
 setcolor(color);
    c:=readkey;
    case (c) of
         #0:begin
        c:=readkey;
        case (c) of
          #75:zrotate(0.1);
          #77:zrotate(-0.1);
          #80:xrotate(0.1);
          #72:xrotate(-0.1);
          #82:xmove(0.2);
          #83:xmove(-0.2);
          #71:ymove(0.2);
          #79:ymove(-0.2);
          #73:zmove(0.2);
          #81:zmove(-0.2);
        end;
      end;
         #42:yrotate(0.1);
      #47:yrotate(-0.1);
 end;
  until (c=#27);
  goto menu;
  closegraph;
end.