ADA - Una dudilla, ayuda!!!

with Ada.Text_IO;

procedure Main is

   use Ada.Text_IO;

   Input_String : Unbounded_String;

   Num_Spaces : Integer := 0;

   Num_Newlines : Integer := 0;

begin

   Put("Ingrese una cadena de texto: ");

   Get_Line(Input_String);

   -- Verificar si la cadena solo contiene un salto de línea

   if Length(Input_String) = 1 and then Element(Input_String, 1) = Character'Val(10) then

      Num_Newlines := 1;

   else

      -- Separar las palabras de los espacios y contar los espacios

      for I in Input_String'Range' loop

         case Character'Pos(Element(Input_String, I)) is

            when 32 =>

               Num_Spaces := Num_Spaces + 1;

            when 10 =>

               Num_Newlines := Num_Newlines + 1;

         end case;

      end loop;

   end if;

   -- Mostrar los resultados

   Put_Line("Número de espacios introducidos: " & Num_Spaces'Image');

   Put_Line("Número de saltos de línea introducidos: " & Num_Newlines'Image');

end Main;