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

const D_SIZE = 100;
type d_item_t = integer;
type d_list_t = array[1..D_SIZE] of d_item_t;
type d_comp_t = record
  list: d_list_t;
  stack: integer;
  queue: integer;
  count: integer;
end;
 
procedure DInc( var a: integer );
begin
  a := a + 1;
  if a > D_SIZE then a := 1;
end;
procedure DDec( var a: integer );
begin
  a := a - 1;
  if a < 1 then a := D_SIZE;
end;
 
procedure DReset( var d: d_comp_t );
begin
  d.stack := 1;
  d.queue := D_SIZE;
  d.count := 0;
end;
function DPushFront( var d: d_comp_t; const item: d_item_t ): boolean;
begin
  if d.count = D_SIZE then 
    DPushFront := false
  else begin  
    d.count := d.count + 1;
    d.list[ d.queue ] := item;  
    DDec(d.queue);
    DPushFront := true;
  end;
end;  
function DPushBack( var d: d_comp_t; const item: d_item_t ): boolean;
begin
  if d.count = D_SIZE then 
    DPushBack:= false
  else begin
    d.count := d.count + 1;
    d.list[ d.stack ] := item;  
    DInc(d.stack);
    DPushBack := true;
  end;
end;  
function DPopFront( var d: d_comp_t; var r: d_item_t ): boolean;
begin
  if d.count = 0 then 
    DPopFront:= false
  else begin
    DInc(d.queue);
    d.count := d.count - 1;
    r := d.list[ d.queue ];
    DPopFront := true;
  end;
end;
function DPopBack( var d: d_comp_t; var r: d_item_t ): boolean;
begin
  if d.count = 0 then 
    DPopBack:= false
  else begin
    DDec(d.stack);
    d.count := d.count - 1;
    r := d.list[ d.stack ];
    DPopBack := true;
  end;
end;
 
 
 
const N = 10;
var 
  stack: d_comp_t;
  stackTmp: d_comp_t;
  i: integer;
  item: d_item_t;  
 
procedure PrintStack( stack: d_comp_t );
var
  i: integer;
  item: d_item_t;
begin
  i := 1;
  while DPopFront( stack , item ) do begin
    writeln('Stack[',i,']: ' , item);
    i := i + 1;
  end;
end; 
 
begin
 
DReset( stack );
for i:=1 to N do
  DPushBack( stack , random( -100 , 100 ) );
  
PrintStack(stack);
 
writeln('------------------------');
 
DReset(stackTmp);
for i:=1 to N do begin
  DPopBack( stack , item );
  DPushBack( stackTmp, item );
end;
 
stack := stackTmp;
 
PrintStack(stack);
  
 
 
end.

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.