Даны два неубывающих массива. Выполнить объединение данных в третий, также неубывающий массив (очевидно размерность результирующего массива будет равна сумме размерностей исходных). Количество элементов исходных массивов произвольное. Результирующий массив распечатать — Pascal(Паскаль)

Const n=10;
var Mas,Mas2:array[1..n] of integer;
    Mas3:array[1..n*2] of integer;
    i,m,j,bufer:integer;

begin

 for i:=1 to n do
  begin
   write('Введите ',i,'элемент первого массива: ');
   readln(Mas[i]);
  end;

  for i:=1 to n do
  begin
   write('Введите ',i,'элемент второго массива: ');
   readln(Mas2[i]);
  end;

m:=0;
  for i:=1 to 2*n do
    begin
      if i<=n then
        Mas3[i]:=Mas[i]
      else if i>n then
        begin
         inc(m);
         Mas3[i]:=Mas2[m];
        end;
    end;

  for i:=2*n downto  2 do
    for j:=1 to i-1 do
     If Mas3[j]>Mas3[j+1] then
      begin
       bufer:=Mas3[j];
       Mas3[j]:=Mas3[j+1];
       Mas3[j+1]:=bufer;
      end;

  for i:=1 to 2*n do
   write(Mas3[i],' ');

readln;
end.
0