Рассмотрите фрагмент решения задачи на слияние двух массивов А и В, которые содержат соответственно n1 и n2 элементов. Результирующий массив С будет содержать n1+n2 элементов.

. . .
i1 := 1;
i2 := 1;
for i := 1 to n1+n2 do
  if i1>n1
    then
      begin
        C[i] := B[i2];
        i2 := i2+1;
      end
    else
      if i2>n2
        then
          begin
            C[i] := A[i1];
            i1 := i1+1;
          end
        else
          if A[i1]<=B[i2]
            then
              begin
                C[i] := A[i1];
                i1 := i1+1;
              end
            else
              begin
                C[i] := B[i2];
                i2 := i2+1;
              end;
. . .