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

   close (f);
   assign(f, 'c:\news.txt');
   reset (f) ;
   {...}
   close (f) ;
end.
         Часто важно знать находится ли указатель в конце фай-
ла (за последней компонентой)? В этом случае можно восполь-
зоваться логической функцией Eof, которая возвращает значе-
ние true - если указатель в конце файла и false - если нет.
   function Eof(var F: file): Boolean;
         Примеры:
t:= Eof(fl);
if Eof(ff) then...
While not Eof (f2) do....
         Указатель файла можно воспринимать как обычный но-
мер текущей компоненты, которые нумеруются начиная с нуля.
Таким образом, типизированные файлы являются структу-
рой данных прямого доступа по номеру его компоненты.
         Чтение из типизированного файла осуществляется
процедурой Read.
   Read(<файловая переменная>, <список
                                       переменных-комгюнент>);
         Примеры:
Read(ft, a);
Read, (f, a, b, с) ;
         Переменные считываются из файла и после выполнения
каждой операции считывания указатель файла перемещается на
следующую компоненту.
program р44;
var
   f: file of byte;
   a, b, c: byte;
begin
   assign(f, 'dospl. pas');
                                                           107