将两个顺序存储的有序线性表
S1
和
S2
合并，使得合并后的线性表
S
仍然有序。（升序）

归并排序的简单应用
　　　 ╯　　　 　╰
　　　 ●　　　 　 ●
　　　 " 　 　^　 　 "

百度-归并排序

随手写了个程序，略长。。
program tguibing;
type point=^node;
node=record
data:longint;
next:point;
end;
var head1,head2,head3,p,q:point;
i,j:longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a)
else exit(b);
end;
function min(a,b:longint):longint;
begin
if a<b then exit(a)
else exit(b);
end;
procedure init;
var i,j,t,n:longint;
p,q:point;
begin
readln(n);
new(p);head1:=p;read(p^.data);
for i:=2 to n do
begin
new(q);
p^.next:=q;
p:=q;
read(p^.data);
end;
readln;
p^.next:=nil;
readln(n);
new(p);head2:=p;read(p^.data);
for i:=2 to n do
begin
new(q);
p^.next:=q;
p:=q;
read(p^.data);
end;
p^.next:=nil;
end;
procedure sort(head1,head2:point;var head3:point);
var t1,t2:longint;
p,q,r,s,tt:point;
begin
p:=head1;
q:=head2;
new(head3);r:=head3;
while not ((p=nil)and(q=nil)) do
begin
if p=nil then t1:=maxlongint else t1:=p^.data;
if q=nil then t2:=maxlongint else t2:=q^.data;
new(s);
tt:=r;
r^.data:=min(t1,t2);
r^.next:=s;
r:=s;
if t1<=t2 then p:=p^.next else q:=q^.next;
end;
r:=tt;
dispose(r^.next);
r^.next:=nil;
end;
procedure print(head:point);
var p:point;
begin
p:=head;write(p^.data,' ');p:=p^.next;
while (p<>nil) and (p<>head) do
begin
write(p^.data,' ');
p:=p^.next;
end;
end;
Begin {main}
assign(input,'input.txt');
reset(input);
init;
sort(head1,head2,head3);
print(head3);
close(input);
End.

或许我理解错楼主意思了。。
楼主是不是只要数组的？