Задача с массивом, сделать из 2-1упорядоченный Опции

[Rom1k]

Даны два упорядоченные массива А и В.Образовать из элементов массива упорядоченный массив С.

Я их ввёл,а объеденить их в упорядоченный-не знаю.Как это попроще сделать?

Program z_1;
Uses Crt;
Const
nmax=10;
Type
mas=array[1..nmax] of integer;
Var
  A,B:mas;
  C:array [1..2*nmax] of integer;
  na,nb,nc:integer;
  i,j,k:integer;

{Процедура ввода массивов}
Procedure vvod(var A: mas; n:byte);
begin
 Write('Введите количество элементов массива: ');
 ReadLn(n);
 for i := 1 to n do
 begin
  read(A[i])
 end;
end;{vvod}

Begin
     ClrScr;
     Writeln;
     Writeln('Введите первый массив: ');
     vvod(A,Na);
     Writeln('Введите второй массив: ');
     vvod(B,Nb);
end.

[volvo]

Внешняя сортировка
Скачай исходник, и замени работу с файлами на работу с массивами ...

[Rom1k]

Внешняя сортировка
Скачай исходник, и замени работу с файлами на работу с массивами ...

скачал,посмотрнл,прочитал,попытался понять,но опять же ничего не получается.Вот написал:
только не знаю,почему не правильно работает!!!

Program z_1;
Uses Crt;
Const
n=10;
Type
mas=array[1..n] of integer;
Var
  A,B:mas;
  C:array [1..2*n] of integer;
  i,j,k:integer;
  na,nb:byte;
{Процедура ввода массивов}
Procedure vvod(var A: mas; n:byte);
begin
 Write('Введите количество элементов массива: ');
 ReadLn(n);
 WriteLn('Элементы ');
 for i := 1 to n do
 begin
  read(A[i])
 end;
end;{vvod}

Begin
 ClrScr;
 Writeln;
 Writeln('Введите первый массив: ');
 vvod(A,na);
 Writeln('Введите второй массив: ');
 vvod(B,nb);
 For k := 1 to 2*n do
  begin
   if (i <= n) and (j <= n) then
    if a[i] <= b[j] then
     begin
      c[k] := a[i];
      inc(i)
     end
    else
     begin
      c[k] := b[j];
      inc(j)
     end ;
 end;
   else
    if i > n then
     begin
      c[k] := b[j];
      inc(j)
     end
    else
     begin
      c[k] := a[i];
      inc(i)
     end
   end;
 {Вывод полученного массива}
 Writeln('Массив полученный при объединении массивов А и В: ');
 for k:=1 to n*2 do
  writeln('C[',k,'] = ',c[k]);
 readkey;
End.

Добавлено через 18 мин.
с ума сойти.пол дня с этой задачей,а толку-нет(