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

uses crt;
type Tmas=array[1..100] of integer;
procedure Vvod(var n:byte;var m:Tmas;c:char); 
var i:byte;
begin
writeln('Ishodnyj massiv ',c,':');
write('Razmernost massiva n=');
readln(n);
for i:=1 to n do
begin
m[i]:=random(50);
write(m[i],' ');
end;
writeln;
end;
procedure Vyvod(n:byte;var m:Tmas);
var i:byte;
begin
for i:=1 to n do
write(m[i],' ');
writeln;
end;
function Nmax(n:byte;m:Tmas):byte;
var i,j:byte;
max:integer;
begin
max:=m[1]; j:=1;
for i:=1 to n do
if m[i]> max then
begin
max:=m[i];
j:=i;
end;
Nmax:=j;
end;
Procedure Sort(x,y:byte;var m:Tmas);
var i,j:byte;
f:integer;
begin
for i:=x to y-1 do
for j:=i+1 to y do
if m[i]>m[j] then 
f:=m[i];
m[i]:=m[j];
m[j]:=f;
end;
end;
var a,b:Tmas;
na,nb,imax:byte;
begin 
clrscr;
randomize;
Vvod(na,a,'A');
Writeln('Sortirovka massiva A do max:');
Sort(1,Nmax(na,a)-1,a);
Vyvod(na,a);
Writeln('Sortirovka massiva A posle max:');
Sort(Nmax(na,a)+1,na,a);
Vyvod(na,a);
Writeln('Sortirovka vsego massiva A:');
Sort(1,na,a);
Vyvod(na,a);
readln;
repeat
Vvod(nb,b,'B');
until nb<>na;
Writeln('Sortirovka massiva B do max:');
Sort(1,Nmax(nb,b)-1,b);
Vyvod(nb,b);
Writeln('Sortirovka massiva B posle max:');
Sort(Nmax(nb,b)+1,nb,b);
Vyvod(nb,b);
Writeln('Sortirovka vsego massiva B:');
Sort(1,nb,b);
Vyvod(nb,b);
readln
end.