Помогите если сможете!
Даны два массива из дробных чисел,состоящие из N и P. Элементы в них упорядочены по возрастанию.
{это я реализовала}
Вопрос: Как посторить упорядоченый по возрастанию массив из N+P элементов данных массивов?
k1:=n; k2:=m;
for i:=1 to k1 do
begin
c[i]:=a[i];
end;
for i:=1 to k2 do
begin
c[k1+i]:=b[i];
end;
for i:=1 to k1+k2 do write(c[i]:2 :2,' ');
type mas=array [1..100] of real;
var i,n,m,p:byte;
a,b,c:^mas;
Procedure vvod(var n:byte; var a:mas);
var i:byte;
begin
Writeln('Vvedite kol-vo elementov massiva');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
end;
begin
New(a); New(b); New©;
Vvod(n,a^);
Vvod(m,b^);