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

program kyrsovaya_2;
uses crt;
const n1=100;n2=100;
type matrix=array[1..n1,1..n2] of integer;
var n,m,d,t,z,i,j,x:integer;
    a,b,y:matrix;
 
procedure RandomMatrix(var a:matrix; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(11)
end;
 
procedure PrintMatrix(a:matrix; 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]:5);
writeln;
end;
end;
 
function fact(d:integer):integer;
var i,p:integer;
begin
p:=1;
for i:=1 to d do
p:=p*i;
fact:=p;
end;
 
procedure change(var a:matrix; n,m,z:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=a[i,j]*z;
writeln();
end;
 
procedure form_Y(var y:matrix;a,b:matrix;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
y[i,j]:=a[i,j]-b[i,j];
end;
begin 
write('Введите М: ');read(d);
z:=fact(d);writeln('факториал М: ',z);
write('Введите N: ');readln(t);
x:=fact(t);writeln('факториал N: ',x);
writeln;
 
randomize;
write('Введите кол-во строк матрицы ');
readln(n);
write('Введите кол-во столбцов матрицы ');
readln(m);
RandomMatrix(a,n,m);
writeln('исходная Матрица А: ');
PrintMatrix(a,n,m);
writeln;
RandomMatrix(b,n,m);
writeln('исходная Матрица B: ');
PrintMatrix(b,n,m);
 
change(a,n,m,z);
writeln('m! * Матрица А: ');
PrintMatrix(a,n,m);
change(b,n,m,x);
writeln('n! * Матрица B: ');
PrintMatrix(b,n,m);
form_Y(y,a,b,n,m);
writeln('Результирующая матрица Y: ');
PrintMatrix(y,n,m);
end.