-- Nagy programoknal gyakran letezik egy olyan "modul" / programresz, amelynek a segitsegevel lehetoseg van
-- jelezni es esetleg kezelni a futas kozben keletkezo "hibakat".
-- Ezek egy resze - a kivetelekhez hasonloan - bizonyos esetekben elvart is lehet.

-- Termeszetesen elofordulhatnak olyan esetek is, amikor olyan hiba keletkezik, amely nem "halad keresztul" a Hiba_Kezelo csomagon. (pl.: elaboracios hibak)
package Hiba_Kezelo is
   pragma Elaborate_Body;                                  -- Itt azert hasznaljuk az Elaborate_Body pragmat, mert feltetelezzuk, hogy elaboracios idoben is keletkezhetnek hibak, es az ezek kezelesehez szukseges muveleteket elerhetove szeretnenk tenni


   Program_Leallas_Hiba : Exception;


   type Foprogram_Mutato_Tipus is access procedure;

   procedure Futtatas(Foprogram : Foprogram_Mutato_Tipus);

   procedure Program_Leallitas(Hiba_Uzenet : String);


end Hiba_Kezelo;