Массивы, сортировка Опции

[Demm]

Помогите,пожалуста!
вот задача: Даны 2 массива упорядоченных по возрост. надо сформировать 3 также упорядоченный по возрастанию.
Сформировать 3 и потом упорядочить-проблем нет, но надо во время записи 3 массива расставлять элементы сразу на свои места.
Если кто может,покажите как это реализовывается!
Ввод, вывод и описания перем. не обязательно!

[Spawn]

Виноват. Недоглядел.
Вот рабочая версия:

Код

const
n = 4; {длина массива А}
m = 5; {длина массива В}
t = n + m; {длина результирующего массива}
type
mA = array[1..n] of integer;
mB = array[1..m] of integer;
mC = array[1..t] of integer;
var i,j,k:integer;
A:mA;B:mB;C:mC;
procedure sort(var A : mA; var B : mB; var C : mC);
begin
i := 1; j := 1; k := 1;
repeat
if A[i]>B[j] then
begin
  C[k] := B[j];
  j := j + 1;
end
else
begin
  C[k] := A[i];
  i := i + 1;
end;
k := k + 1;
if i>n then
  for i := j to m do
  begin
    C[k] := B[i];
    k := k + 1;
  end
else if j>m then
  for j := i to n do
  begin
    C[k] := A[j];
    k := k + 1;
  end;
until k>=t;
end;

begin
   writeln('mass A');
 for i:=1 to n do
   read(A[i]);
   writeln('mass B');
 for j:=1 to m do
   read(B[j]);
   sort(A,B,C);
   writeln('poluch');
 for k:=1 to t do
   write(C[k],' ');
   readln;
end.