Создать блок-схему по программе

uses crt;
const nmax=20;
type mas=array[1..nmax,1..nmax] of integer;
     mas1=array[1..nmax*2] of integer;
procedure inmatrxi(var x:mas;n:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   x[i,j]:=random(56);
end;
procedure print(var x:mas;n:integer);
 var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(x[i,j]:4);
    writeln;
  end;
end;
procedure poisk(var x:mas;n:integer;var k:integer);
 var i,j:integer;
begin
  for j:=1 to n do
   begin
    for i:=1 to n do
     if x[i,j] mod 5=0 then
       inc(k);
   end;
end;
procedure sort(var x,x1:mas;n:integer);
 var i,j,tmp,k:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     x1[i,j]:=x[i,j];
     tmp:=x1[i,j];
      k:=j;
       while (k>1) and (tmp>x1[i,k-1]) do
        begin
          x1[i,k]:=x1[i,k-1];
          dec(k);
        end;
       x1[i,k]:=tmp;
    end;
  end;
end;
procedure inmc(var x:mas;x1:mas1;n:integer);
 var i,j,k:integer;
begin
k:=1;
 for i:=1 to n do
  for j:=1 to n do
   begin
    if i=j then
     begin
      x1[k]:=x[i,j];
       inc(k);
     end;
    if j=n-i+1 then
     begin
      x1[k]:=x[i,j];
       inc(k);
     end;
   end;
  for i:=1 to k-1 do
   write(x1[i]:4);
end;
var a,b,d:mas;
    c:mas1;
    n,m,k,k1:integer;
begin
 repeat
  write('poryadok 1 matricy n=');
   readln(n);
 until n in [1..nmax];
 repeat
  write('Poryadok 2 matricy m=');
   readln(m);
 until m in [1..nmax];
  writeln('1 matrica :');
   inmatrxi(a,n);
  print(a,n);
  writeln('2 matrica :');
   inmatrxi(b,m);
   print(b,m);
 poisk(a,n,k);
   poisk(b,m,k1);
  writeln('chislo elementov kratnix 5 v 1 mat =  ',k);
   writeln('chislo elementov kratnix 5 v 2 mat =  ',k1);
  if k<k1 then
   writeln('min v 1 mat ')
  else
   writeln('min v 2 mat ');
  writeln('press start ! ');
   readkey;
    clrscr;
   writeln('mat А:');
    print(a,n);
    sort(a,d,n);
   writeln('mat D:');
   print(d,n);
   writeln('mat B:');
    print(b,m);
   writeln('Macciv c:');
    inmc(b,c,m);
 readln;
end.