-- A Szamrendszerek csomag gyerek-csomagja
-- Ilyen esetekben gyakran privat gyerek-csomagot ( 'private package' ) hasznalunk, azert, hogy a kulvilag ne ferjen hozza azokhoz a
-- reprezentacios informaciokhoz, amelyeket egy adott implementacional hasznalunk
package Szamrendszerek.Szamabrazolas is


   type Szamrendszerek_Tomb_Tipus is array (Natural range <>) of Positive;

   type Szamrendszerek_Tomb_Mutato_Tipus is access Szamrendszerek_Tomb_Tipus;

   type Szamjegyek_Tomb_Tipus is array (Natural range <>) of Natural;

   type Szamjegyek_Tomb_Mutato_Tipus is access Szamjegyek_Tomb_Tipus;

   -- Ez a fajta abrazolas sok esetben hasznos lehet (gondoljunk a tombok tombje, es a matrix kozotti kulonbsegekre, valamint a string-ekre, es string mutatokra)
   -- FONTOS!!!
   -- Az tipus hasznalata soran allokalt memoria terulet felszabaditasaval ebben a programban nem foglalkozunk!
   type Vegyes_Alapu_Szam_Abrazolas_Tipus is record
      Szamrendszerek : Szamrendszerek_Tomb_Mutato_Tipus := null;  --| Mindig megkoveteljuk, hogy a ket mutatott tomb range-e megegyezzen
      Szamjegyek : Szamjegyek_Tomb_Mutato_Tipus := null;          --| (ezt a hasznalo kodnak kell biztositania!)
      Tulcsordult : Boolean := False;
   end record;


end Szamrendszerek.Szamabrazolas;