Записать числа двух упорядоченных массивов в массив С в том же порядке, не используя алгоритма сортировки.

program sort;
uses crt;
 
const
  n = 5; {азмерность массива a}
  m = 4; {размерность массива b}
 
var
  i, j: integer;
  a: array[1..n] of integer;
  b: array[1..m] of integer;
  c: array[1..n+m] of integer;
 
{сортировка массива a}
procedure sortA;
var
  r: integer;
  i, j: integer;
begin
  for i := n - 1 downto 1 do
    for j := 1 to i do
      if a[j] > a[j + 1] then
      begin
        r := a[j];
        a[j] := a[j+1];
        a[j+1] := r;
      end;
end;
 
{печать массива a}
procedure printA;
var
  i: integer;
begin
  writeln;
  writeln('Massiv a');
  for i := 1 to n do write(a[i]:6);
end;
 
{сортировка массива b}
procedure sortB;
var
  r: integer;
  i, j: integer;
begin
  for i := m - 1 downto 1 do
    for j := 1 to i do
      if b[j] > b[j + 1] then
      begin
        r := b[j];
        b[j] := b[j+1];
        b[j+1] := r;
      end;
end;
 
{печать массива b}
procedure printB;
var
  i: integer;
begin
  writeln;
  writeln('Massiv b');
  for i := 1 to m do write(b[i]:6);
end;
 
{Слитие массивов a и b в массив c}
procedure fillC;
var
  i, j, k: integer;
begin
  i := 1;
  j := 1;
  k := 1;
  while (i <= n) and (j <= m) do
  begin
    if a[i] < b[j] then
    begin
      c[k] := a[i];
      inc(i);
    end
    else
    begin
      c[k] := b[j];
      inc(j);
    end;
    inc(k);
  end;
  while (i <= n) do
  begin
    c[k] := a[i];
    inc(i);
    inc(k);
  end;
  while (j <= m) do
  begin
    c[k] := b[j];
    inc(j);
    inc(k);
  end;
end;
 
{печать массива c}
procedure printC;
var
  i: integer;
begin
  writeln;
  writeln('Massiv c');
  for i := 1 to m+n do write(c[i]:6);
end;
 
 
begin
  clrscr;
  randomize;
  for i := 1 to n do a[i] := random(30) - 15;
  for i := 1 to m do b[i] := random(30) - 15;
  sortA;
  printA;
  sortB;
  printB;
  fillC;
  printC;
 
 
  readln;
end.