Стек. Добавить элементы одного списка в другой

program prog_stack;
const n=5;
type stask=^s;
s=record
r:char;
p:stack;
end;
var t,d,g:stack; f1,f2:text;k:char;
procedure form_stack(k:char);
var w:stack;
begin{1}
new(w);
w^.r:=k;
w^.p:=t;
t:=w;
dispose(w);
end;{1}
procedure vivod(t:stack);
begin{2}
while t<>nil do
begin{3}
write(t^.r,' ');
write(f1,t^.r,' ');
t:=t^p;
end;{3}
end;{2}

type
  tStek = ^rStek;
  rStek = record
    Ch : Char;
    Next : tStek;
  end;
 
var
  Stek : tStek;
  Spis : tStek;
  
procedure Push(var Stek : tStek; Ch : Char);
var
  Cur : tStek;
begin
  New(Cur);
  Cur^.Ch := Ch;
  Cur^.Next := Stek;
  Stek := Cur;
end;
 
function Pop(var Stek : tStek) : Char;
var
  Cur : tStek;
begin
  if Stek = nil then
    Pop := #0
  else
    begin
      Pop := Stek^.Ch;
      Cur := Stek;
      Stek := Stek^.Next;
      Dispose(Cur);
    end;
end;
 
procedure Show(Stek : tStek);
var
  Cur : tStek;
begin
  Cur := Stek;
  while Cur <> nil do
    begin
      Write(#32, Cur^.Ch);
      Cur := Cur^.Next;
    end;
  WriteLn;
end;
 
var
  i : Integer;
begin
  Stek := nil;
  Spis := nil;
  
  // Заполним 5 случайными символами
  for i := 1 to 5 do Push(Stek, Chr(Random(65, 90)));
  for i := 1 to 5 do Push(Spis, Chr(Random(65, 90)));
  
  Write('Стек: '); Show(Stek);
  Write('Список: '); Show(Spis);
  
  while Spis <> nil do
    Push(Stek, Pop(Spis));
    
  Write('Стек: '); Show(Stek);
end.