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

const
  m = 18;
 
type
  mas = array[1..m, 1..m] of real;
 
var
  n: integer;
  S: real;
 
procedure vv_preobr(var x: mas; f: boolean);
var
  i, j: integer;
begin
  if f then S := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
      if f then //Формируем массив и вычисляем сумму
      begin
        x[i, j] := -random * 5 + random(16);
        write(x[i, j]:7:2);
        if i = j then S := S + x[i, j]
      end
      else //Преобразовываем массив
      begin
        if S > 10 then x[i, j] := x[i, j] + 3.5
        else x[i, j] := x[i, j] - 3.5;
        write(x[i, j]:7:2)
      end;
    writeln
  end
end;
 
var
  a: mas;
 
begin
  randomize;
  repeat
    writeln('n= , n<=18');
    readln(n)
  until (n > 1) and (n <= 18);
  writeln('B:');
  vv_preobr(a, true);
  writeln;
  writeln('summa = ', S:0:3);
  writeln('B'':');
  writeln;
  vv_preobr(a, false);
  readln
end.

uses crt;
var f,h: file of integer;
    imax,imin,max,min,i,c,nz,kz,sum: integer;
    
begin
assign(f,'D:\in.dta');
assign(h,'D:\our.dta');
rewrite(f);
for i:=1 to random(6)+10 do
    begin
    c:=random(199)-99;
    write(f,c);
    end;
writeln('Файл заполнен случайным количеством случайных чисел');
writeln('Содержимое файла f');
reset(f);
i:=-1;
while not eof(f) do
      begin
      inc(i);
      read(f,c);
      write(c:5);
      if i=0 then
         begin
         max:=c; min:=c; imin:=i; imax:=i;
         end else
             begin
             if c>max then
                begin
                max:=c; imax:=i;
                end;
             if c<min then
                begin
                min:=c; imin:=i;
                end;
             end;
      end;
writeln;
if imin<imax then
   begin
   nz:=imin+1; kz:=imax-1;
   end else
       begin
       nz:=imax+1; kz:=imin-1;
       end;
i:=nz;
while i<=kz do
      begin
      seek(f,i);
      read(f,c);
      inc(sum,c);
      inc(i);
      end;
rewrite(h);
write(h,min);
write(h,max);
write(h,sum);
reset(h);
writeln('Содержимое файла h');
while not (eof(h)) do
      begin
      read(h,c);
      writeln(c);
      end;
close(f);
close(h);
end.