Код по работе со стеками - PascalABC.NET

Формулировка задачи:

Скажите, пожалуйста, почему у меня в выводе во 2м стеке только 11111

program sad;
type stec=^st;
      st=record
      inf:real;
      link:stec;
       end;
var top,p,top1,p1:stec;
    i:byte;
    n,m:integer;
begin
top:=nil;
writeln('Ввести кількість елементів стеку ');
readln(n);
new(p);
writeln('Ввод інформації');
readln(p^.inf);
p^.link:=nil;
top:=p;
    for i:=2 to n do
    begin
    new(p);
    writeln('Доповнення стеку ');
    readln(p^.inf);
    p^.link:=top;
    top:=p;
    end;
      p:=top;
      for i:=1 to n do
      begin
      writeln(p^.inf);
      p:=p^.link;
      end;
        top1:=nil;
        new(p1);
        p:=top;
        p1^.inf:=p^.inf;
        p1^.link:=nil;
        top1:=p1;
        for i:=2 to n do
        begin
        p:=p^.link;
        P1^.inf:=p^.inf;
        p1^.link:=top1;
        top1:=p1;
        end;
          p1:=top1;
          for i:=1 to n do
          begin
          writeln(p1^.inf);
          p1:=p1^.link;
          end;
    end.

Решение задачи: «Код по работе со стеками»

Листинг программы

begin
  var stack1 := New Stack<integer>;
  var stack2 := New Stack<integer>;
 
  Write('stack1 ='); stack1.Println;
  Write('stack2 ='); stack2.Println;
  WriteLn;
 
  for var i := 1 to 10 do stack1.Push(i);
  
  Write('stack1 ='); stack1.Println;
  Write('stack2 ='); stack2.Println;
  WriteLn;
  
  loop 5 do stack2.Push(stack1.Pop);
 
  Write('stack1 ='); stack1.Println;
  Write('stack2 ='); stack2.Println;
  WriteLn;
end.

Объяснение кода листинга программы

Создаются два стека: stack1 и stack2
Выводятся начальные значения stack1 и stack2
В цикле от 1 до 10 элементов добавляются в stack1
Выводятся значения stack1 и stack2
В цикле 5 раз из stack1 удаляются и добавляются в stack2 элементы
Выводятся значения stack1 и stack2