Push Procedure

[Vega_Knight]

i make push procedure but its not working, there something wrong with my code??
please see my following push procedure :

procedure PUSH (var T: Stack; var Full: boolean;
                     X: integer);
 begin
   if T.Top = MaxElemen then
       Full := true
   else
      begin
        
        T.Top := inc(T.Top);
        T.Contain[T.Top] := X
      end
 end;

[Jx_Man]

i think you forget to set full = false, just it.
add this code after else :

begin
        Full := false;
        T.Top := inc(T.Top);
        T.Contain[T.Top] := X
      end

ok hope this helps..

[Vega_Knight]

oh...great. thanks jx_man. i feel dumb..just caused by a little think.

[Jx_Man]

you're welcome. its ok, everybody can make mistake. happy coding friend :)
all for the best.