Содержимое стека 2 дописать в содержимое стека 1. Напечатать полученный стек 1

Program stekk;
type stecc=^st;
st=record
inf:real;
link:stecc;
end;
var
i:integer;
top,top2,p,p2:stecc;
begin
 
top:=nil;
new(p);
Writeln('Vvedite perviy element steka'); // Создание 1-ого стека
readln(p^.inf);
p^.link:=nil;
top:=p;
 
 
for i:=2 to 5 do
begin
new(p);
Writeln('Vvedite elementi steka'); // Заполнение 1-ого стека
readln(p^.inf);
p^.link:=top;
top:=p;
end;
 
top2:=nil;
new(p2);
Writeln('Vvedite perviy element steka'); // Создание 2-ого стека
readln(p2^.inf);
p2^.link:=nil;
top2:=p2;
 
for i:=2 to 5 do
begin
new(p2);
Writeln('Vvedite elementi steka'); // Заполнение 2-ого стека
readln(p2^.inf);
p2^.link:=top2;
top2:=p2;
end;
 
 
While (p<>nil) do
begin
write(p^.inf);        // Вывод стеков
p:=p^.link;
end;
Write(' ');
 
While (p2<>nil) do
begin
write(p2^.inf);
p2:=p2^.link;
end;
end.

program stekk;
 
type
  stecc = ^st;
 
  st = record
    inf:  real;
    link: stecc;
  end;
 
  procedure StackPrint(p: stecc);
  begin
    while (p <> nil) do
    begin
      Write(p^.inf: 5: 1);        // Вывод стека
      p := p^.link;
    end;
    Write(' ');
  end;
 
  procedure StackFree(var root: stecc);
  var
    p: stecc;
  begin
    while root <> nil do
    begin
      p := root;
      root := root^.link;
      dispose(p);
    end;
  end;
 
var
  i: integer;
  top, top2, p, p2: stecc;
begin
 
  top := nil;
  new(p);
  Writeln('Vvedite perviy element steka'); // Создание 1-ого стека
  readln(p^.inf);
  p^.link := nil;
  top := p;
 
 
  for i := 2 to 5 do
  begin
    new(p);
    Writeln('Vvedite elementi steka'); // Заполнение 1-ого стека
    readln(p^.inf);
    p^.link := top;
    top := p;
  end;
 
  top2 := nil;
  new(p2);
  Writeln('Vvedite perviy element steka'); // Создание 2-ого стека
  readln(p2^.inf);
  p2^.link := nil;
  top2 := p2;
 
  for i := 2 to 5 do
  begin
    new(p2);
    Writeln('Vvedite elementi steka'); // Заполнение 2-ого стека
    readln(p2^.inf);
    p2^.link := top2;
    top2 := p2;
  end;
 
  StackPrint(p);
  StackPrint(p2);
 
  StackFree(p);
  StackFree(p2);
end.