Помогите со стеками. Изменить программу нужно

Program stek_1;
type
TElem=char;
ukaz=^zweno;
zweno=record;
ELEM:telem;
next:Ukaz;
end;
stek=ukaz;
var ust,st,q,p:ukaz;
FL1,EL2,EL:TElem;
procedure Wstek(var ust:stek;NELem:telem);
var q:ukaz;
begin
New(q);
q^.ELem:=NELem;
q^.Next:=ust;
ust:=q
end;
PROCEDURE Isstek(var ust: Stek;var a:TELem);
VAR q:ukaz;
begin
if ust=nil then
writeln
else
begin
a:=ust^.ELem;
q:=ust;
ust:=ust^.next; dispose(q)
end
end;
BEGIN
ust:=nil;
writeln ('Vesti elementu v stek bez probelov,probel i enter zavershaet vihod');
read(EL);
while EL<>' ' do
begin
Wstek(ust,EL);
read(EL)
end;
writeln;
while ust<>nil do
begin
Isstek(ust,EL);
write(EL)
end;
writeln
END.

Uses CRT;
 
Type pSpisok = ^intrec;
     intrec = Record
                C : Char;
                P : pSpisok;
              End;
 
Var p, s : pSpisok;
    I : Integer;
    Str : String;
    F : Text;
 
Procedure OCHISTEK;
Begin
     s := nil;
End;
 
Function PUSTSTEK:Boolean;
Begin
     If s<>Nil Then PUSTSTEK := True
               Else PUSTSTEK := False;
End;
 
Procedure VSTEK(Ch:Char);
Begin
     New(p);
     p^.C := Ch;
     p^.P := s;
     s := p;
End;
 
Procedure PECHSTEK;
Begin
     Write(s^.C);
End;
 
Procedure IZSTEK;
Begin
     PECHSTEK;
     p := s;
     s := s^.P;
     Dispose(p);
End;
 
Begin
     ClrScr;
 
     OCHISTEK;
     Assign(F,'6.txt');
     Reset(F);
     While Not(EOF(F)) Do Begin
           ReadLn(F,Str);
           For I := 1 To Length(Str) Do VSTEK (Str[I]);
           While PUSTSTEK Do IZSTEK;
           WriteLn;
     End;
     Close(F);
 
     ReadLn;
End.