with Ada.Text_IO;


procedure Aufgabe12 is

   type Z is array (Integer range <>) of Integer;
   type X is access Z;

   P : X := new Z (1 .. 20000000);
   Q : X := new Z (1 .. 20000000);
   C : Character;

begin
   P.all := (others => 4);
   Q.all := (others => 5);

   Ada.Text_IO.Put_Line (Integer'Image (P (1)));
   P := Q;
   --  Der Array, auf den P zeigt(e), ist jetzt verloren -> Speicherleck
   Ada.Text_IO.Put_Line (Integer'Image (P (1)));
   Ada.Text_IO.Get (C);

end Aufgabe12;