Как составить эту блок-схему?

Program x;
uses Crt, Graph;
Const punkt: array[1..3] of string=('O 0nporpamme','3anyCtuTb nporpammy','BbIxoD');
      Help1: array[0..1] of String=(Chr(24)+Chr(25),'ESC');
      Opis1: array[0..1] of String=('Moves cursor','Exit from program');
      Help2: array[0..1] of String=('ESC', '');
      Opis2: array[0..1] of String=('Exit to main menu', '');
var a,c:word;
    key: char;
x1,y1,x2,y2,i:integer;
    d:char;
    x11,x21: array[1..20] of integer;
    y12,y22: array[1..20] of integer;
    x,y: integer;
    NomLine: integer;
    RisLine: boolean;
{-----------------------------------------------------}
procedure Help(Name,Opis: array of String);
var i: Integer;
begin
  for i:=0 to 1 do begin
    TextColor(Red); GotoXY(i*26+2,25); Write(Name[i]);
    TextColor(White); GotoXY(i*26+7,25); Write(Opis[i]);
  end;
end;
{-----------------------------------------------------}
procedure onprogramme;
begin
clrscr;
Help(Help2,Opis2);
gotoxy(20,4);
textcolor(7);
write('Ha3BaHue nporpammbI: "PezuHoBaja JIuHuja"');
gotoxy(20,6);
textcolor(7);
write('Pa3pa6oTaJI:  noname ');
gotoxy(20,8);
textcolor(7);
write('Gruppa:  pshpshpsh');
gotoxy(20,10);
textcolor(7);
write('Pravila polzovanuja: pervu yzel kazhdoi linii fikciryetca');
gotoxy(41,14);
textcolor(7);
write('Nazhatiem klavishi "Enter". Vtoroj yzel');
gotoxy(41,16);
textcolor(7);
write('linii tak zhe fikcuryetcja nazhatiem');
gotoxy(41,18);
textcolor(7);
write('klavisi "Enter". Dlja ydalenija vsey linii');
gotoxy(41,20);
textcolor(7);
write('neobxodimo nazhat  klavishu esc');
repeat until ReadKey=#27;
end;
{-----------------------------------------------------}
procedure ZanyCtuTb_nporpammy;
var x11,y11,x22,y22,i:integer;
    d:char;
begin
initgraph(x1,y1,'');
outtextXY(getmaxX div 2-30,10,'Tab-clear');
outtextXY(getmaxX div 2-30,30,'Enter-draw');
outtextXY(getmaxX div 2-30,50,'Esc-exit');
repeat
if keypressed then
 begin
  d:=readkey;
  case d of
  #9:begin
     cleardevice;
     outtextXY(getmaxX div 2-30,10,'Tab-clear');
     outtextXY(getmaxX div 2-30,30,'Enter-draw');
     outtextXY(getmaxX div 2-30,50,'Esc-exit');
     end;
  #13:begin
      x11:=random(getmaxX);
      y11:=55+random(getmaxY-55);
      x11:=x22;
        y11:=y22;
        x22:=random(getmaxX);
        y22:=55+random(getmaxY-55);
        setcolor(random(15)+1);
        line(x11,y11,x22,y22);
        
     
      end;
   #27:exit;
   end;
 end;
until d=#27;
end;
{-----------------------------------------------------}
Procedure menu(a:word);
var z,y: word;
begin
clrscr;
Help(Help1,Opis1);
for z:=1 to 3 do begin
  if z=a then TextColor(Green) else TextColor(White);
  GotoXY(30,z+5); Write(punkt[z]);
end;
end;
{-----------------------------------------------------}
Begin
clrscr;
a:=1; c:=0;
 
  repeat
    menu(a);
gotoxy(1,25);
    write('s');
    key:=readkey;
    case key of
    #0: begin
      key:=readkey;
        case key of
          #72: if a=1 then a:=3 else a:=a-1;
          #80: if a=3 then a:=1 else a:=a+1;
        end;
      end;
    #13: begin
           case a of
             1: onprogramme;
             2: ZanyCtuTb_nporpammy;
             3: c:=1;
           end;
         end;
    #27: c:=1;
    end;
  until c=1;
END.