{
This program illustrates the use of the predeclared procedures
reset, rewrite, get, put, and close:
}

program three1;

  var
    i: integer;
    datafile: file of integer;

  begin  { 3-1 }
    rewrite(datafile,':F1:DDATA.DAT');  { create DDATA.DAT on drive 1 }
    for i := 0 to 10 do                 { write 0..10 onto the file }
      begin
        datafile^ := i;
        put(datafile);
      end;
    reset(datafile);                    { re-position file to beginning }
    repeat                              { read in and display the integers }
      writeln(datafile^:5);
      get(datafile);
    until eof(datafile);
    close(datafile);                    { and then close the file }
  end.  { 3-1 }



{
Executing this program will result in the following output:

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
}