ADA - ayudenme con este programa!!

with Ada.Text_IO;

procedure Contar_Letras is

   Texto : constant String := "Hola Mundo!";

   Vocales, Consonantes, Mayusculas, Signos : Integer := 0;

begin

   for I in Texto'Range' loop

      case Texto(I) is

         when 'a' | 'e' | 'i' | 'o' | 'u' =>

            Vocales := Vocales + 1;

         when 'A'..'Z' =>

            Mayusculas := Mayusculas + 1;

         when '!' | '?' | '.' | ',' | ';' =>

            Signos := Signos + 1;

         when others =>

            Consonantes := Consonantes + 1;

      end case;

   end loop;

   Ada.Text_IO.Put_Line("Cantidad de vocales: " & Vocales'Image');

   Ada.Text_IO.Put_Line("Cantidad de consonantes: " & Consonantes'Image');

   Ada.Text_IO.Put_Line("Cantidad de mayúsculas: " & Mayusculas'Image');

   Ada.Text_IO.Put_Line("Cantidad de signos: " & Signos'Image');

end Contar_Letras;