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

[Demm]

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

[Demm]

Не работает
Вот

Код

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; B : mB; 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
    readln(A[i]);
    writeln('mass B');
  for j:=1 to m do
    readln(B[j]);
    sort(A,B,C);
    writeln('poluch');
  for k:=1 to t do
    write(C[k],' ');
    readln;
end.

Виснит и все тут!

Сообщение отредактировано: Demm - 30.05.2004 13:53