With Ada.Text_IO; Use Ada.Text_IO;  
With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;

procedure Program is

type String_Access is access all String;

Str_2 : aliased String (50 .. 60);
Str_3 : aliased String (1 .. 10) := (others => '0');

Str_Acc_5 : String_Access := Str_3'Unrestricted_Access;

begin

	Put (Str_Acc_5'First);
	New_Line;
	Put (Str_Acc_5'Last);
	
	Str_Acc_5 := Str_2'Unrestricted_Access;
	
	New_Line;
	Put (Str_Acc_5'First);
	New_Line;
	Put (Str_Acc_5'Last);

end Program;