Нарисуйте пожалуйста блок схему

uses crt;
const nn=10;mm=10;
type tarr=array[1..nn,1..mm] of real;
     tvec=array[1..nn*mm] of real;
var a:tarr;b:tvec;
    l,n,m:integer;
 
{Печать массива}
procedure printarr(a:tarr;n,m:integer);
var i,j:integer;
begin
 for i:=1 to n do begin
   for j:=1 to m do write(a[i,j]:6:2);
   writeln;
 end;
end;
 
{Загрузка массива из файла}
function initarr(var a:tarr;var n,m:integer;fn:string):boolean;
var i,j:integer;
    f:text;
begin
 initarr:=false;
 assign(f,fn);
 reset(f);
  read(f,i);
  read(f,j);
  if (i<=n) or (j<=m) then begin
   n:=i;m:=j;
   for i:=1 to n do begin
     for j:=1 to m do begin
      if eof(f) then begin
        close(f);
        exit;
      end;
      read(f,a[i,j]);
     end;
   end;
   initarr:=true;
  end;
 close(f);
end;
 
{Преобразование массива в одномерный массив}
procedure trunslatearr(a:tarr;n,m:integer;var b:tvec;var l:integer);
var i,j,ii,jj:integer;
begin
 l:=0;
 for i:=n downto -m-1 do for j:=1 to m do  begin
  ii:=i+j-1;
  if (ii>0) and (ii<=n) then begin
   l:=l+1;
   b[l]:=a[ii,j];
  end;
 end;
end;
 
{Среднее арифметическое одномерного массива}
function avg(a:tvec;n:integer):real;
var i:integer;
    c:real;
begin
 c:=0;
 for i:=1 to n do begin
  c:=c+a[i];
 end;
 avg:=c/n;
end;
 
{Печать одномерного массива}
procedure printvec(a:tvec;n:integer;fn:string);
var i:integer;f:text;
begin
 if fn='' then begin
   for i:=1 to n do write(a[i]:8:2);
   writeln;
 end else begin
  assign(f,fn);
  rewrite(f);
   for i:=1 to n do write(f,a[i]:8:2);
   writeln(f);
  close(f);
 end;
end;
 
{Сортировка одномерного массива методом Шелла}
procedure sortvec(var a:tvec;st,fn:integer;asc:boolean);
var
         i, j, k, s, m: integer;
         x: real;
begin
  for i:=st to fn-1 do begin
   k:=i;
   for j:=i+1 to fn do
     if ((a[j]<a[k]) and asc) or ((a[j]>a[k]) and not asc) then k:=j;
   if k<>i then begin
     x:=a[i];a[i]:=a[k];a[k]:=x;
   end;
  end;
end;
 
{Основная программа}
begin
 clrscr;
 n:=nn;m:=mm;
 if initarr(a,n,m,'Input.txt') then begin;
  writeln('--------Массив a----------');
  printarr(a,n,m);
  trunslatearr(a,n,m,b,l);
  writeln('--------Массив b----------');
  printvec(b,l,'');
  printvec(b,l,'Output1.txt');
  writeln('Cреднее арифметическое массива = ',avg(b,l):4:2);
  sortvec(b,1,l div 2,true);
  sortvec(b,l div 2+1,l,false);
  writeln('--------Сортированный массив b----------');
  printvec(b,l,'');
  printvec(b,l,'Output2.txt');
 end else writeln('Ошибка в файле <Input.txt> :(');
 readkey;
end.