Re: Beginner Need help !

[Ledru#m#_Pascal@MSMAIL3.HAC.COM]

Just use the mode Append_File (which does not exist in Ada83 by the 
way!)

with Text_IO;
procedure TestFile2 is
  package IO_Int is new Text_IO.Integer_IO( Num => Integer);
  use IO_Int;
  File_A : Text_IO.FILE_TYPE;
begin
  -- we assume the file always exists here!
  Text_IO.Open
    ( File => File_A,
      Mode => Text_IO.Append_File,
      Name => "File_A" );

  for I in 1 .. 10 loop
    Text_IO.Put(File_A, "Line : ");
    IO_Int.Put( File_A, i, 4);
    Text_IO.New_Line(File_A);
  end loop;

  Text_IO.Close( File_A );
end;