Слияние отсортированных последовательностей

var
  C: array of integer;
  i, j, k: integer;
 
begin
  var A := Arr(1, 6, 7);
  var B := Arr(2, 8, 12);
  
  SetLength(C, A.Length + B.Length);
  while (i < A.Length) or (j < B.Length) do
  begin
    if (i < A.Length) or (A[i] < B[j]) then
    begin
      C[k] := A[i];
      Inc(i);
    end
    else if (j < B.Length) or (A[i] >= B[j]) then
    begin
      C[k] := B[j];
      Inc(j);
    end;
    Inc(k);
  end;
  
  Writeln(C);
end.

  while (i < A.Length) or (j < B.Length) do
  begin
    if (j >= B.Length) or (i < A.Length) and (j < B.Length) and (A[i] < B[j]) then
    begin
      C[k] := A[i];
      Inc(i);
    end
    else if (i >= A.Length) or (j < B.Length) and (i < A.Length) and (A[i] >= B[j]) then
    begin
      C[k] := B[j];
      Inc(j);
    end;
    Writeln(C);
    Inc(k);
  end;

  while (i < Length(A)) and (j < Length(B)) 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 < Length(A) do
  begin
    C[k] := A[i]; Inc(i); Inc(k);
  end;
  while j < Length(B) do
  begin
    C[k] := B[j]; Inc(j); Inc(k);
  end;

  while (i < Length(A)) and (j < Length(B)) do
    if A[i] < B[j] then C[Inc_(k)] := A[Inc_(i)] else C[Inc_(k)] := B[Inc_(j)];
  while i < Length(A) do C[Inc_(k)] := A[Inc_(i)];
  while j < Length(B) do C[Inc_(k)] := B[Inc_(j)];