CamelCase in Ada

with Ada.Text_IO,
 Ada.Characters.Handling; 
 use Ada.Text_IO,
 Ada.Characters.Handling;
procedure CamelCase is
 Text: String(1..100);
 Length: Natural;
 Was_Space: Boolean := True;
 I: Integer := 1;
begin
 Get_Line(Text, Length);
 Text := To_Lower(Text);
 loop
 if Character'Pos(Text(I)) > 96 and Character'Pos(Text(I)) < 123 then
 if Was_Space then
 Put(To_Upper(Text(I)));
 else
 Put(Text(I));
 end if;
 Was_Space := False;
 else
 Was_Space := True;
 end if;
 I := I + 1; 
 exit when I > Length;
 end loop;
end;