Задача со стеками! Опции

[Lion4ik]

Вводится строка заканчивающаяся точкой, например SSALK.
вывести её в обратном порядке, используя процедуры стеков.

Помогите решить полностью задачу!

[Tan]

Надо в основной программме писать

Uses Modulname;

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

[Lion4ik]

Надо в основной программме писать

Uses Modulname;

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

Вообщем вот модуль

Unit STACK;
INTERFACE
Type
 TElem = integer; 
 TStack = ^TElement; 
 TElement = record
             info:TElem;
             Next:TStack
            end;
 
 Procedure StackInit(var s:TStack);
 Function StackEmpty(S:TStack):Boolean;
 
 Procedure StackPush(var S:TStack; E:TElem);

 Function StackPop(var S:TStack):TElem;
 {--------------------------------------}

IMPLEMENTATION
 Procedure StackInit(var s:TStack);
 begin
  s:=nil
 end;
 Function StackEmpty(S:TStack):Boolean;
 begin
  StackEmpty:=(S=NIL);
 end;
 Procedure StackPush(var S:TStack; E:TElem);
 var
  z:TStack;
 begin
  new(z);
  z^.next:=s;
  Z^.INFO:=E;
  s:=z;
 end;
 Function StackPop(var S:TStack):TElem;
 const errorcode=255;
 var z:TStack;
 begin
  If StackEmpty(S) then
  begin

   Halt(errorcode);
  end else
  begin
   z:=s;
   s:=s^.next;
   stackPop:=z^.info;
   dispose(z)
  end
 end;
end.

А ВОТ ПРОГРАМММА!

uses crt, stack;

var
  ch: telem;
  st: tstack;


begin
  stackinit(st);

  repeat

    ch := readkey;
    write(ch);
    stackpush(st, ch);

  until ch = '.';
  writeln;

  stackpop(st);   while not stackempty(st) do begin
    write(stackpop(st));
  end;
  writeln;readln;
end.

М

ну неужели поставить теги так сложно? предупредила же. и в правилах это есть... мисс_граффити

....................
Теперь обьясните что делать???

Откомпилировал я модуль, поставил Destanitiоn Disk как в инструкции
в программе uses crt, stack/ это уже есть или как помогите?

[Lion4ik]

я читать умею и это я сделал всё равно тоже самое.....в самом модуле я поменял целоее на чар!!!!

Добавлено через 5 мин.

я читать умею и это я сделал всё равно тоже самое.....в самом модуле я поменял целоее на чар!!!!

Ну что кто поможет??? ведь я знаю вы знаете....
всё поменял указал ....но всё равно EROR: 26