package body Verem_DG is procedure Betevés ( V : in out Verem; E : in Elem ) is begin V.Tartalom ( V.Mutató + 1 ) := E; V.Mutató := V.Mutató + 1; end Betevés; procedure Kidobás ( V : in out Verem ) is begin V.Mutató := V.Mutató - 1; end Kidobás; function Tető ( V : Verem ) return Elem is begin return V.Tartalom ( V.Mutató ); end Tető; function Tele ( V : Verem ) return Boolean is begin return V.Mutató >= V.Max_Méret; end Tele; function Üres ( V : Verem ) return Boolean is begin return V.Mutató <= 0; end Üres; end Verem_DG;