Example Of String Parsing

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada;

procedure Parsing is

   buff : String(1..100);
   n :integer;
   

begin

  Text_IO.Get_line(buff,n); 
  Text_IO.Put(Item=>name);
  Text_IO.New_Line;
  for i in 1..n loop
     Text_IO.Put(Item = > name(i));
  end loop ;

end Parsing;