Создать два стека по 5 элементов. Слить их в один стек. Результирующий стек вывести на экран.
Создание стека я сделал.
Подскажите как слить 2 стека в один ?

program STACK_Pr;
type
PStack = ^TStack;
TStack = record
chislo: integer;
next : PStack;
end;
var
x, Stack : PStack;
i : integer;
Procedure INPUT_STACK;
begin
Stack := nil;
for i := 1 to 5 do
begin
New(x);
write ('Введите ', i, ' число '); readln(x^.chislo);
x^.next := Stack; Stack:=x;
end;
end;
Procedure OUTPUT_STACK;
begin
if Stack = nil
then writeln('Стек пуст!')
else begin
x := Stack;
while x<> nil do
begin
write (x^.chislo,' ');
x := x^.next;
end;
end;
end;
begin
INPUT_STACK;
OUTPUT_STACK;
end.
Сообщение отредактировано: volvo -