gistfile1.txt

declare
   First : Integer := your_String'First;
   Last  : Integer;
begin
   loop
      Last := Index (your_String, " ", from => First);
      
      if Last = 0   -- Space not found
      then
         put_Line ("Final Token: " & your_String (First, your_String'Last));
	 exit;
      end if;
      
      put_Line ("Token: " & your_String (First, Last - 1);
      
      First := Last + 1;
   end loop;
end;