{
THIS PROGRAM ILLUSTRATES THE USE OF THE PREDECLARED PROCEDURES
RESET, REWRITE, GET, PUT, AND CLOSE:
}

PROGRAM THREE1(INPUT,OUTPUT,:LP:);

  VAR
    I: INTEGER;
    DATAFILE: FILE OF INTEGER;

  BEGIN  { 3-1 }
    REWRITE(DATAFILE,':LP: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;
      WRITELN(DATAFILE^:5);
    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
}