Создать стек из случайных целых чисел. Развернуть стек, т.е. «дно» стека сделать вершиной, а вершину – «дном» - Free Pascal

type
  PStack = ^TStack;
  TStack =
  record
    data : integer;
    next : PStack;
  end;
 
procedure Push(var s : PStack; v : integer);
var t : PStack;
begin
  new(t);
  t^.data := v;
  t^.next := s;
  s := t;
end;
 
function Pop(var s : PStack) : integer;
var t : PStack;
begin
  if s <> nil then
  begin
    Pop := s^.data;
    t := s;
    s := s^.next;
    dispose(t);
  end;
end;
 
procedure Print(s : PStack);
var t : PStack;
begin
  t := s;
  while t <> nil do
  begin
    write(t^.data:4);
    t := t^.next;
  end;
  writeln;
end;
 
var
  s, t : PStack;
  i : integer;
begin
  s := nil;
  for i := 1 to 5 do Push(s, Random(100));
  Print(s); // созданный стек
 
  t := nil;
  while s <> nil do Push(t, Pop(s));
  s := t;
  Print(s); // "перевернутый" стек
 
  while s <> nil do Pop(s); // освобождаем память
end.