with ada.text_io;
with ada.integer_text_io;
procedure test_String is

   -- declaration of a String Variable
inputString : String(1..80):= (others => ' ');  

   -- will hold the position of the last character in the user's
   -- INPUT string
last_in : integer; 

   begin
     
   -- ask user for string where input can be found
     ada.text_io.put 
     (" Please enter your input String ");
    
	   ada.text_io.get_line (inputString, last_in);
   
   -- now echo the filename picked up
      ada.text_io.put_line (inputString(1..last_in));  

      ada.integer_text_io.put (last_in);   
		ada.text_io.new_line;
		
		for i in 1..last_in loop
		    ada.integer_text_io.put (i);
			 ada.text_io.new_line;  
			 ada.text_io.put (inputString(i));
	   end loop;
	
   end 	test_String;