procedure Iteral ( e: in out Elem; lepesszam: out NATURAL ) is
	lszam: NATURAL := 0;	-- Ada95-ben nem kell kulon valtozo
begin
	while not Vege(e) loop
		Atalakit(e);
		lszam := lszam+1;
	end loop;
	lepesszam := lszam;
end Iteral;