-- Chapter 11 - Program 5
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

procedure CharInt is

   Char : CHARACTER;
   Index : INTEGER;
   Stuff : array(0..25) of CHARACTER;

begin
   Char := 'A';
   Index := 5 + CHARACTER'POS(Char);
   Put(Index, 5);
   Char := CHARACTER'VAL(Index);
   Put(Char);

   New_Line;
   Stuff(21) := 'X';
   Index := 2 + CHARACTER'POS(Stuff(21));
   Put(Index, 5);
   Stuff(0) := CHARACTER'VAL(Index);
   Put(Stuff(0));

end CharInt;




-- Result of execution

--    70F
--    90Z