Сформировать одномерный массив размером K+N, упорядоченный так же, как исходные массивы

uses crt;
const n1=10; m1=10;
var a: array [1..n1] of integer; b: array [1..m1] of integer; i,j,n,m: integer;
begin
writeln('введите n');
readln(n);
writeln('введите m');
readln(m);
 
randomize;
for i:=1 to n do
a[i]:= random (10);
writeln('массив 1');
for i:=1 to n do
write (a[i],'|');
 
writeln;
 
randomize;
for j:=1 to m do
b[j]:= random (10);
 
writeln('массив 2');
for j:=1 to m do
write (b[j],'|');
writeln;
 
writeln('массив n+m');
 
for i:=1 to n do begin
write (a[i],'|');
end;
 
for j:=1 to m do
write (b[j],'|');
 
end.

uses crt;
const n1=10; m1=10;
var a: array [1..n1] of integer; b: array [1..m1] of integer; i,j,n,m: integer;
begin
writeln('введите n');
readln(n);
writeln('введите m');
readln(m);
 
randomize;
for i:=1 to n do
a[i]:= random (10);
writeln('массив 1');
for i:=1 to n do
write (a[i],'|');
 
writeln;
 
randomize;
for j:=1 to m do
b[j]:= random (10);
 
writeln('массив 2');
for j:=1 to m do
write (b[j],'|');
writeln;
 
writeln('массив n+m');
 
for i:=1 to n do begin
write (a[i],'|');
end;
 
for j:=1 to m do
write (b[j],'|');
 
end.

uses crt;
const n1=40; m1=40;
var a: array [1..n1] of integer; b: array [1..m1] of integer; i,o,razn,min,max,j,n,m: integer;
begin
writeln('ââåäèòå n');
readln(n);
 
randomize;
for i:=1 to n do
 a[i]:= random (10);
 writeln('ìàññèâ ');
 
for i:=1 to n do
 write (a[i],'|');
 
 writeln;
 
 max:=a[1];
 min:=a[1];
 
 for i:=2 to n do begin
  if a[i] > max then
  max:= a[i];
  end;
  
  for j:=2 to n do
  if a[j] < min then begin
  min:= a[j];
  end;
  writeln('ðàíèöà');
  razn:= max-min;
  writeln(razn);
 
  
  a[1]:=max;
  a[5]:=min;
 
 writeln('Êîíå÷íûé ìàñèâ:');
 for i:=1 to n do
  write(a[i],' ');
 end.