Задача с массивом, сделать из 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.

[klem4]

Дальше больше

for i:=1 to nb do
read(two[j]);

не понял что-то?!

Если цикл по i, то и читать видимо надо one[i] а не one[k] .... C two тоже самое