Динамическая память!! Опции

[Maxic$$$@a]

                      Срочно помогите PLEASE!!!!
                                                       Задача
 Разработать прогу слияния 2-ух стеков, содержащих возрастающую последовательность целых положительных чисел, в третий стек, так, чтобы его элементы распологались также в порядке возрастания.
                                   (Как создать стек и как объеденить два стека в третий???????)
     ??????????                                                                                                                                ???????????????

[P@sh@]

Код

type
PStack=^TStack;
TStack=record v: integer; p: PStack end;

var st1,st2,st3: PStack;

procedure push(var st: PStack; x: integer);
var nst: PStack;
begin
new(nst);
nst^.p:=st;
st:=nst;
st^.v:=x;
end;

function pop(var st: PStack): integer;
var nst: PStack;
begin
pop:=st^.v;
nst:=st;
st:=st^.p;
dispose(nst);
end;