generic	type Elem is private;
	MAX_MERET: in NATURAL := 100;

package VEREM_VG is	 -- generikus verem tipus vektorban abrazolva
        type Verem is limited private;
        procedure Push  ( v: in out Verem; e: in Elem );
        procedure Pop   ( v: in out Verem );
        function  Top   ( v: Verem ) return Elem;
        function  Full  ( v: Verem ) return BOOLEAN;
        function  Empty ( v: Verem ) return BOOLEAN;
private
        type Vektor is array (1..MAX_MERET) of Elem;
        type Verem is record
                mutato: INTEGER := 0;
                tartalom: Vektor;
                end record;
end VEREM_VG;