Слияние двух упорядоченных массивов.

// слияние двух массивов
function MergeArray(A, B: Vector; NA, NB: Integer): Vector;
var
  I, J, K: Integer;
begin
  I := 1;
  J := 1;
  K := 1;
  while (I <= NA) and (J <= NB) do begin
    if A[I] > B[J] then begin
      Result[K] := A[I];
      Inc(I);
    end
    else begin
      Result[K] := B[J];
      Inc(J);
    end;
    Inc(K);
  end;
  // дописываем в конец массива оставшиеся элементы
  while I < NA do begin
    Result[K] := A[I];
    Inc(I);
    Inc(K);
  end;
  while J < NB do begin
    Result[K] := B[J];
    Inc(J);
    Inc(K);
  end;
end;

type 
  Vector = array[1..100] of Integer;

C := MergeArray(A, B, 10, 20);

// слияние двух массивов
procedure MergeArray(A, B: Vector; N, M: Integer; var C: Vector);
var
  I, J, K: Integer;
begin
  I := 1;
  J := 1;
  K := 1;
  {пока не дошли до конца каждого из массивов}
  while (I <= N) or (J <= M) do begin
    if (I <= N) and (J <= M) then begin {если оба массива ещё не закончились}
      {то пишем в новый массив больший из текущих элементов}
      if A[I] > B[J] then begin
        C[K] := A[I];
        Inc(I); {переходим к следующему элементу соответствующего массива}
        Inc(K); {переходим к следующему элементу конечного массива}
      end
      else begin
        C[K] := B[J];
        Inc(J);
        Inc(K);
      end
    end
    else
      {иначе один из массивов уже закончился}
      if J > M then begin {и мы пишем из того, в котором ещё есть элементы}
        C[K] := A[I];
        Inc(I);
        Inc(K);
      end
      else
        if I > N then begin
          C[K] := B[J];
          Inc(J);
          Inc(K);
        end;
  end;
end;