DEFINITION MODULE Stek;
FROM Info IMPORT InfoTip;

CONST
  Maxstek = 100;
TYPE
  Niz = ARRAY[1..Maxstek] OF InfoTip;
  StekTip = RECORD
            Top : CARDINAL;
            Element : Niz
          END;

PROCEDURE MakeNull(VAR s : StekTip);
PROCEDURE Empty(VAR s : StekTip) : BOOLEAN;

PROCEDURE Top(VAR s : StekTip;
              VAR x : InfoTip;
              VAR ok : BOOLEAN);
PROCEDURE Pop(VAR s : StekTip;
              VAR ok : BOOLEAN);
PROCEDURE Push(VAR s : StekTip;
               x : InfoTip;
               VAR ok : BOOLEAN);

END Stek.