-- Chapter 11 - Programming exercise 2
with Text_IO;
use Text_IO;

procedure CH11_2 is

   package Int_IO is new Text_IO.Integer_IO(INTEGER);
   use Int_IO;

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

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

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

   New_Line;
   Char := CHARACTER'VAL(CHARACTER'POS(Char) + 1);
   Put(Char);
   Char := CHARACTER'SUCC(Char);
   Put(Char);

end CH11_2;




-- Result of execution

--     70F
--     90Z
-- GH