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

program kursa4_26;
uses Crt;
 
const
 n=10; m=5;
type
 massiv = array [1..n, 1..n] of real;
var
 i, j: byte;
 matr,mas: massiv;
 f:text;
 
{Нахождение обратной матрицы методом Жордана-Гаусса}
procedure RevMatrix (var mas: massiv; m: byte);
var
 i, j, k, s: byte;                         {рабочие переменные}
 matrD:      array [1..n, 1..2*n] of real; {расширенная матрица}
 koef:       real;
 vrem:       real;
begin
 if m = 1 then{в случае единичной размерности матрицы}
begin
   if mas[1,1] <> 0 then
    mas[1,1]:=1/mas[1,1];
   exit;
  end;
 for i:=1 to m do begin{заполняем расширенную матрицу}
 
   for j:=1 to m do begin
       matrD[i,j]:=mas[i,j];
     matrD[i,m+j]:=0;
    end;
   matrD[i,m+i]:=1;
  end;
 for i:=1 to m-1 do begin{прямой ход}
 if matrD[i,i]=0 then  {проверка на нулевой элемент}
   begin
    for s:=i+1 to m do
    if matrD[s,i]<>0 then
     begin
      for k:=1 to 2*m do
       begin
        vrem:=matrD[s,k];
        matrD[s,k]:=matrD[i,k];
        matrD[i,k]:=vrem;
       end;
      break;
     end;
 i:=i-1;
    continue;
   end;
  for j:=i+1 to m do
   begin
    koef:=matrD[j,i]/matrD[i,i]; {вычисляем коэффициент}
     for k:=i to 2*m do
      matrD[j, k]:=matrD[j, k]-koef*matrD[i, k];
   end;
 end;
{выполняем обратный ход}
 for i:=1 to m do
  begin
   koef:=matrD[i, i];
 
   for j:=i to 2*m do
    matrD[i, j]:=matrD[i, j]/koef;
  end;
{получение единичной матрицы}
 for i:=m downto 1 do
  begin
   for j:=i-1 downto 1 do
    begin
     koef:=matrD[j,i]/matrD[i,i];
     for k:=2*m downto 1 do
      matrD[j,k]:=matrD[j,k]-koef*matrD[i,k];
    end;
  end;
 for i:=1 to m do
  for j:=1 to m do
   mas[i,j]:=matrD[i,j+m];
writeln('обратная матрица');
  for i:=1 to m do
  begin
   for j:=1 to m do
    write(mas[i,j]:8:2);
   writeln;
  end;
end;
{начало основной программы}
begin
clrscr;
 assign(f, 'c:\pabcwork\dima.txt' );
 reset(f);
 read(f);
 writeln('исходная матрица');
  for i:=1 to m do begin
    for j:=1 to m do begin
      read(f,mas[i,j]);
      write(mas[i,j]:6:2);
      end;
    writeln;
   end;
    close(f);
  RevMatrix(mas, m);
   write ('нажмите ENTER');
 readln;
end.