Блок схема

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure massiv(var a:mas;var n:integer;c:char;s:string);
var i,j:integer;
    x:integer;
begin
repeat
write('Размер масива ',c,' от 1 до ',nmax div 2,' n=');
readln(n);
until n in [1..nmax div 2];
writeln(s);
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
end;
procedure sort(var a:mas;n:integer;s:string);
var i,j:integer;
    x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln(s);
for i:=1 to n do
write(a[i]:4);
writeln;
end;
var a,b,c:mas;
    n,m,i,j,k:integer;
begin
clrscr;
massiv(b,n,'B','Исходный массив B:');
massiv(c,m,'C','Исходный массив C:');
sort(b,n,'Отсортированный массив B:');
sort(c,m,'Отсортированный массив C:');
i:=1; j:=1; k:=1; {устанавливаем счётчики}
while (i<=n)or(j<=m) do {пока не дошли до конца одного из массивов}
 begin
  if(i<=n)and(j<=m) then{если оба массива еще не закончились}
   begin
    if b[i]<c[j] then {то пишем в новый массив меньший из текущих элементов}
     begin
      a[k]:=b[i];
      inc (i); {переходим к следующему элементу соответствующего массива}
      inc (k); {переходим к следующему элементу конечного массива}
     end
    else
     begin
      a[k]:=c[j];
      inc(j);
      inc (k);
     end
   end
  else if j>m then {иначе один из массивов уже закончился}
   begin {и мы пишем из того, в котором ещё есть элементы}
    a[k]:=b[i];
    inc (i);
    inc (k);
   end
  else if i>n then
   begin
    a[k]:=c[j];
    inc (j);
    inc (k);
   end;
 end;
writeln('Слияние массивов:');
for i:=1 to n+m do
write(a[i]:4);
readln
end.