TURBO PASCAL:Учебное пособие. Терёхин В.В. - 108 стр.

  reset (f);
  read(f, a, b, c);
  writeln{'a= ', a, ' b= ', b, ' c= ', c);
  close(f);
end.
       Запись в файл осуществляется с помощью процеду-
ры Write.

  Write(<файловая переменная>,<список
                                     переменных-компонент>);
       Переменные записываются в файл и после каждой запи-
си указатель в файле перемещается за последнюю компоненту.
       Для перемещения указателя по файлу можно использо-
вать процедуру Seek.
  procedure Seek(var f: file; n: Longint);
После вызова процедуры указатель файла f перемещается на
компоненту с номером n. Например, вызов Seek(f, FileSize(f));
приведет к перемещению указателя в самый конец файла (за
последнюю компоненту).
       Для определения номера компоненты на которой нахо-
дится указатель файла используют функцию FilePos.
  function FilePos(var f; file): Longint;
Результат выполнения функции - целое число номер текущей
компоненты. Если процедура FilePos возвратила значение 0, то
указатель стоит в самом начале файла перед первой компонен-
той. Если функции FilePos и FileSize возвращают одинаковые
значения, то указатель находится в самом конце файла.
  function FileSize(var f: file): Longint;
Результат выполнения функции FileSize -длинное целое число
размер файла или количество его компонент. Если функция
возвращает ноль, то файл пуст.
       После работы с файлом (файловой переменной) или пе-
ред повторным открытием для корректного взаимодействия с
операционной системой его необходимо закрыть. С этой це-
лью используют процедуру Close.
                                                          108