const n=15; m=25; 
var 
a:array[1..n] of integer;
b:array[1..m] of integer;
c:array[1..n+m] of integer;
i,i1,i2,j:integer; 
begin
writeln('Массив A:');
a[1]:=random(10);
write(a[1],'  ');
for i:=2 to n do
 begin
 a[i]:=a[i-1]+random(10);
 write(a[i],'  ');
 end;
writeln;
writeln('Массив B:');
b[1]:=random(10);
write(b[1],'  ');
for i:=2 to m do
 begin
 b[i]:=b[i-1]+random(10);
 write(b[i],'  ');
 end;
writeln;
i1:=1; i2:=1; j:=0;
while (i1<=n)and(i2<=m) do
 begin
 j:=j+1;
 if a[i1]<b[i2]
  then begin c[j]:=a[i1]; i1:=i1+1; end
  else begin c[j]:=b[i2]; i2:=i2+1; end
 end;
if i1<=n then for i:=i1 to n do begin j:=j+1; c[j]:=a[i]; end;
if i2<=m then for i:=i2 to m do begin j:=j+1; c[j]:=b[i]; end;
writeln('Массив C:');
for i:=1 to n+m do write(c[i],'  ');
writeln;
end.

Пример:
Массив A:
4  7  10  19  26  35  41  42  47  48  56  62  64  71  74  
Массив B:
7  12  15  23  25  34  35  36  44  47  49  51  56  59  62  67  72  75  79  87  91  94  102  105  106  
Массив C:
4  7  7  10  12  15  19  23  25  26  34  35  35  36  41  42  44  47  47  48  49  51  56  56  59  62  62  64  67  71  72  74  75  79  87  91  94  102  105  106