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

uses crt;
const
     MaxRow = 14;
     MaxCol =20;
 
 
     F:  array  [1..12]  of real=(130.8,  138.6,  146.8, 155.6, 164.8,
174.6, 185.0, 196.0, 207.7, 220.0, 233.1, 246.9);
     temp=11000;
type
    ColType = array [1..MaxRow] of integer;
var
 
   k,n:integer;
   exit, change : boolean;
   nrow : integer;
   col, ncol: Coltype;
(*
function  CheckField:   integer;..{проверка  состояния игры}
procedure  showfile;    {отображает на экране
текущее состояние поля}
procedure prepare;  {формирование экрана}
procedure GetPlayMove;  {ход игрока}
procedure GetChange;    {настройки игры}
procedure SetOwnerMove; {найти, отобразить очередной ход}
procedure CheckPlay;    {контроль окончания игры}
 
procedure PlayerVictory;{поздравление с победой}
procedure OwnVictory;   {проигрыш игрока}
procedure ChooseMove;   {выбор хода}
procedure Bit Form; {формирование двоичного
представления n}
*)
{---------------------------------------------------------}
procedure ShowField;    {отображает на экране текущее состояние поля}
const
Fish = #02;
 x0   = 4;
 x1   = 72;
 x   = 20;
var
i, j: integer;
begin
 for i:= 1 to nrow do
  begin   textcolor(lightgray);
    gotoXY(x0, i+4);
     write(i);
      gotoXY(x1,i+4);
       write(col[i]:2); textcolor(yellow); {цвет фишек}
 for j:= 1 to ncol[i] do
  begin
   gotoXY(x+2*j,i+4);
    if j<=col[i] then write(fish)
                 else write ('.');
  end;
  end;   textcolor(white);
end;
{----------------------------------------------------------------}
 
 
procedure prepare;  {формирование экрана}
const
HeaderO ='ИГРА  НИМ';
Header1 = 'Вы можете взять любое число фишек из любого ряда. ' ;
Header2 = 'Выигрывает тот, кто возьмет последнюю фишку.';
Header3 = 'Номер ряда';
Header4 = 'Кол-во фишек';
var
i: integer;
 begin
   clrscr; textcolor(green);
    gotoXY((80-Length(HeaderO)) div 2, 1);
    write(HeaderO); textcolor(lightred);
       gotoXY((80-Length(Header1)) div 2, 2);
       write(Header1);
          gotoXY((80-Length(Header2)) div 2, 3);
          writeln(Header2); textcolor(white);
          write(Header3);
             gotoXY((149-Length(Header4)) div 2, 4);
             write(Header4);
for i:= 1 to nrow do col[i]:= ncol[i];
 end;
{------------------------------------------------------------}
Procedure getPlayMove;  {ход игрока}
const
 text1 = 'Введите ваш ход в формате РЯД КОЛИЧ '+'(например, 2 3 - взять из 2 ряда 3 фишки)';
 text2 = 'или введите 0 0 для выхода из игры; -1 0 для настройки игры';
 text3 =  'Ваш ход :                      ';
 y = 20;
var
 correctly : boolean;
 x1,x2 : integer;
{------------------------------------------------------------}
procedure getChange;
const
 t1 = 'НАСТРОЙКА   ИГРЫ';
 t2 = '(ввод количества рядов и количества фишек в каждом ряду)';
var
 correctly : boolean;
 i: integer;
begin
clrscr;
 textcolor(lightred);
  gotoXY((80-length(t1)) div 2, 1);
   write(t1); textcolor(green);
    gotoXY((80-length(t2)) div 2, 2);
     write(t2);
repeat
 gotoXY(1,3) ;
  write('Введите    количество    рядов     (максимум ',MAXROW, ') :      ') ;
   gotoXY(whereX-6,whereY);
    readln(nrow);
     correctly := (nrow<=MAXROW) and (nrow>1);
if not correctly then
write(#7)
 until correctly;
   for i:= 1 to nrow do
    repeat
     gotoXY(1, i+3);
      write(' ряд ' , i,  ', количество фишек (максимум ',MAXCOL,'):      ');
       gotoXY(whereX-6, whereY);
        readln(ncol[i]);
         correctly:= (ncol[i]<=maxcol) and (ncol[i]>0);
if not correctly then
write(#7)
   until correctly;
end;
 
begin
 showfield;
  gotoXY((80-length(text1)) div 2, y) ;
   write(text1);
    gotoXY((80-length(text2)) div 2, y+1);
     write(text2);
repeat
 gotoXY(1, y+2);
  write(text3);
   gotoXY(whereX-16, y+2);
    readln(x1,x2);
     exit:=x1=0;
      change :=x1=-1;
 
 if not (exit or change) then
  begin
correctly := (x1>0) and (x1<=nrow) and
(x2<=col[x1]) and (x2>0);
 
 if correctly then
  begin
   col[x1]:=col[x1]-x2;
    showfield;
  end
              else
     write(#7)
end
                        else
 correctly:= true
until correctly;
 if change then getChange;
end;
{---------------------------------------------------------------}
Procedure SetOwnerMove;      {найти, отобразить очередной ход}
{---------------------------------------------------------------}
function CheckField: integer;{проверка состояния игры}
      var i,j:integer;
          begin
            j:=0;
            for i:= 1 to nrow do if col[i]>0 then inc(j);
            checkField:=j;
          end;
{---------------------------------------------------------------}
procedure CheckPlay;    {контроль окончания игры}
var
 i: integer;
begin
gotoXY(1,25); textcolor(magenta);
 write('введите 1, если хотите сыграть еще раз, 0 - выход :  ') ;
  readln(i);
if i=1 then change := true else exit:= true;
end;
{---------------------------------------------------------------}
procedure PlayerVictory;
const
t1 = 'ПОЗДРАВЛЯЮ С ОТЛИЧНОЙ ПОБЕДОЙ!';
var
 i: integer;
begin textcolor(green);
 gotoXY((80-length(t1)) div 2, 24);
  writeln(t1);
              for k:=2 to 3 do
              for n:=3 to 12 do
              begin
   sound(round(f[n]*(1 shl k)));
   delay(temp);nosound
              end;
   for i:=1 to nrow do
    if ncol[i]<maxrow then inc(col[i]);
     CheckPlay;
end;
{---------------------------------------------------------------}
procedure OwnVictory;
const
t1 = 'ВЫ ПРОИГРАЛИ, СЛЕДУЮЩИМ ХОДОМ Я БЕРУ ВЕСЬ РЯД ';
var
i: integer;
 begin
  i:=1;
   while col[i]=0 do inc(i);
    gotoXY((80-length(t1)) div 2, 24); textcolor(lightred);
    write(t1,i);
     for k:=3 downto 2 do
        for n:=12 downto 5 do
        begin
             sound(round(f[n]*(1 shl k) ) ) ;
             delay(temp);
             nosound;
        end;
     col[i]:=0;
      showfield;
       checkplay;
 end;
{---------------------------------------------------------------}
procedure ChooseMove;    {выбор хода}
const
 bit = 6;
type
 bitType = array [1..bit] of integer;
var
 ncbit : array [1..maxrow]  of bittype;
 i,j,k : integer;
 nbit : bittype;
{---------------------------------------------------------------}
procedure BitForm(n : integer; var b : bittype);
{формирование двоичного представления п}
var
i:integer;
 
begin
 for i:= bit downto 1 do
  begin
    if odd(n) then b[i] := 1 else b[i] := 0;
     n:=n shr 1;
  end;
end;
{---------------------------------------------------------------}
begin
 for i:= 1 to nrow do bitform(col[i],ncbit[i]);
  for i:=1 to bit do
      begin
       nbit[i] := 0;
        for j:= 1 to nrow do nbit [i] :=nbit [i]  xor ncbit[j,i];
      end;
    i:=1;
  while nbit[i]=0 do inc(i);
   if i>bit then
      begin
       j:=1;
        while col[j]=0 do inc(j);
         k:=1;
      end
            else
             begin
              j:=1;
               while ncbit[j,i]=0 do inc(j);
                for i:= i to bit do
                 if nbit[i]=1 then
                  ncbit [j,i] := ord(ncbit[j,i]=0);
                  k:=0;
                   for i:= 1 to bit do
                    begin
                     if ncbit[j,i]=1 then inc(k);
                      if i<bit then k:= k shl 1;
                    end;
            k:= col[j]-k;
             end;
gotoXY(1,23);
 write('Мой ход:  ');
  gotoXY(wherex-8,wherey);
   delay(1000);
    write(j,' ',k);
     col[j]:= col[j]-k;
end;
{---------------------------------------------------------------}
begin
 case CheckField of
  0: playerVictory;
  1: OwnVictory;
 else ChooseMove;
 end;
end;
{---------------------------------------------------------------}
{Главная программа}
 
begin
clrscr; highvideo;
   textbackground(lightblue);
 
nrow :=3;
ncol[1]:=3;
ncol[2]:=4;
ncol[3]:=5;
repeat
      prepare;
       repeat
        GetPlayMove;
        if not (exit or change) then
           SetOwnerMove
       until exit or change
until exit;  clrscr; readln;
end.