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

Program Generalna; 
        uses Crt; 
Const Len=100;
  Type
    mtr= array [1..Len,1..Len] of real;
    mas= array [1..Len] of real;
    var i,j,m,n:integer;
    a:mtr;
    x:mas;
    u,v,d,geo:real;
    Max:Boolean;
  Begin
                   ClrScr;
    writeln ('Введите размерность матрицы  A: числа M и N' );
                 write('m=');
                 read (m);
                 write('n=');
                 read(n);
                 writeln (' Введите  элементы a[i,j] матрицы А ');
                 for i:=1 to m do
                            for j:=1 to n do
               a[i,j]:=((i*i*i)*((exp(i*ln(2))*(i-2.5)+1.3)*Sin(((exp(i*ln(2))*((j-2.5)+1.3))))));
   ClrScr;
                 write (' Выведите  элементы a[i,j] матрицы А ');
                 writeln;
                 writeln;
{Вывод матрицы А по строкам}
                          for i:=1 to m do
                           begin
                             for j:=1 to n do
                                write ('a[',i,',',j,']=', a[i,j]:10:7,' '); 
                            writeln;
                           end;
 
 
  Max:=false;
  for i:=1 to m do   //Проверяем, что мы будем заносить у наш вектор
  Begin
  D:=0;
  V:=0;
  for j:=1 to n do
  if a[j,i]<0 then v:=v+1
  else
  if a[j,i]>0 then
  d:=d+1;
  if d<>v then
  Begin
  Max:=true;
  Break;
  End;
  End;
//Ищем максимальное значение каждого столбца и заносим его у наш вектор
  if Max=true then   
   for i:=1 to m do
   for j:=1 to n do
   if a[j,i]>x[i] then x[i]:=a[j,i];
 
//Ищем среднее геометрические значения и заносим его у наш вектор
  if Max=False then    
    for i:=1 to m do
    Begin
    Geo:=1;
   for j:=1 to n do
   geo:=geo*a[j,i];
   if geo>=0 then x[i]:=Exp((1/n) * Ln(Geo));
    End;
    writeln(' Maссив X');
 writeln;
for i:=1 to n do
 write ('x[',i,']=', x[i]:10:7,' ');
 
 Geo:= 1;
for i:=1 to n do
geo:=geo*x[i];
U :=Exp((1/n) * Ln(Abs(Geo)));
  writeln;
  writeln;
  write (' Функция: u=',u:10:7);
    Repeat Until KeyPressed
end.