with Text_Io;
use Text_Io;
procedure Process is
   
   
   
   procedure Write_To_Append (Filename : in String; Line : in String) is
      File : File_Type;
   begin
      Open(File, Append_File, Filename);      
      Put_Line(File, Line);
      Close(File);
   end Write_To_Append;
   
   
   
   
   File : File_Type;
   
begin
   Put_Line("Enter the abstract of project :");
   loop
      declare
	 Line : constant String := Get_Line;
      begin
	 if Line'Length = 0 then
	    exit;
	 end if;
	 Write_To_Append("Abstract.txt", Line);
      end;
   end loop;
   
   
   Put_Line("Do the list of libraries (empty line to quit) :");
   loop
      declare
	 Line : constant String := Get_Line;
      begin
	 if Line'Length = 0 then
	    exit;
	 end if;
	 Write_To_Append("Project.lst", Line);
      end;
   end loop;
   Put_Line("Write the initial version :");
   Write_To_Append("Versions.lst", Get_line);   
end Process;