исправте чуток задачку

[Настенька..Блонди]

Разработать алгоритм и программу решения задачи, которая выполняет операции со стеком: формирует стек, извлекает из него элемент.
Люди помогите!!! здесь ток нужно чтоб не извлекало из него элемент, а выводило обратную последовательность элементов стека!!!! просьба по быстрей!!!

Program Lab16_1; 
Uses Crt; 
Type 
 Exst=^st; 
 st=Record 
    data:integer; 
    next:Exst; 
   end; 
Var 
 i,a:integer; 
 stack:Exst; 
 Flag:boolean; 
Procedure Print(Var u:exst); 
Begin 
 Writeln('Ваш стек'); 
 While u<>nil do 
   begin 
    Write(u^.data,' '); 
    u:=u^.next; 
   end; 
End; 
Procedure WriteStack(Var u:Exst); 
Var 
 x:exst; 
Begin 
 u:=nil; 
 Writeln('Введите элементы стека.Конец ввода -0'); 
 Read(i); 
 While i<>0 do 
  begin 
   New(x); 
   x^.data:=i; 
   x^.next:=u; 
   u:=x; 
   Read(i); 
  end; 
End; 
Procedure ReadStack(Var u:Exst); 
Var 
 x:Exst; 
Begin 
 x:=u; 
 u:=u^.next; 
 Dispose(x); 
End; 
Function Free(Var u:Exst):boolean; 
Begin 
 If u=nil 
  Then 
   Free:=False 
  Else 
   Free:=True; 
End; 
Begin 
 ClrScr; 
 Writeln('Выберите вид работы:'); 
 Writeln('1:Формирование стека'); 
 Writeln('2:Извлечение элемента из стека'); 
 Writeln('0:Выход'); 
 Readln(a); 
 If a=1 
  Then 
   begin 
    WriteStack(stack); 
    Print(stack); 
   end; 
 If a=2 
  Then 
   begin 
    While not Flag do 
     begin 
      Writeln('Стек пустой,чтобы извлечь элемент'); 
      Writeln('надо его сформировать'); 
      WriteStack(stack); 
      Flag:=Free(stack); 
     end; 
    ReadStack(stack); 
    Print(stack); 
   end; 
 Readln; 
 Readln; 
End.

[Stilet]

навскидку так...

...
 st=Record 
    data:integer; 
    prev,next:Exst; 
   end; 
...
stack,last:Exst; 
...
Procedure WriteStack(Var u:Exst); 
Var 
 x:exst; 
Begin 
 u:=nil; 
 Writeln('Введите элементы стека.Конец ввода -0'); 
 Read(i); 
 While i>0 do 
  begin 
   New(x); 
   x^.data:=i; 
   x^.prev:=u;  
   u:=x; 
   x^.next:=nil;
   u:=x; 
   Read(i); 
  end; 
 last:=u;
End; 
...
Procedure ReadStack(Var u:Exst); 
Var 
 x:Exst; 
Begin 
 x:=last; 
 while x<>nil do begin
  writeln(x^.data);
  x:=x^.prev;
 end;
End;

Только помоему твой код - чепуха.