{
  Пример работы с файлами
}
program proba;
  uses crt;
  var
   F1:file of integer;{Типизированный файл (хранится как битовое представление переменных)}
   F2:text;{Текстовый файл (хранится как текст и поэтому его можно просмотреть в блокноте)}
   a,i:integer;{Промежуточная переменная}
begin
  ClrScr;
  {Связь переменных с файлом}
  Assign(F1, '1.txt');
  Assign(F2, '2.txt');
  {Открытие файла для записи. Если файл существовал, то он будет удалён и на его месте создан новый файл}
  ReWrite(F1);
  ReWrite(F2);
  {Заполнение файлов данными}
  For i:=1 to 2 do
   write(F1,i);{Запись и чтение файла производится теми же функциями, что и вывод на экран,
     только добавляется переменная указывающая на файл}
  For i:=3 to 7 do
   write(F2,i,' ');
  {Указывает позицию в которую надо записывать число(начинается с нуля)(не работает для текстовых файлов)}
  Seek(F1,0);{В начало (перезаписывается первый элемент)}
  a:=11;
  write(F1,a);
  Seek(F1,2);{В конец}
  write(F1,a);
  {Открытие файла для дозаписи в конец файла (работает только для текстовых файлов)}
  Append(F2);
  write(F2,102,#13,103);{#13 - переход на новую строчку}
  {Открытие файла для чтения. Если файл не существует}
   Reset(F1);
  Reset(F2);
  {Чтение файла и вывод на экран}
  While Not EOF(F1) Do
   Begin
    Read(F1, a);
     Write(a,' ');
    End;
   writeln('sd');
  While Not EOF(F2) Do
   Begin
    Read(F2, a);
     Write(a,' ');
    End;
  {Закрытие файла. Если не закрыть глючить не будет, но лучше закрыть.
  Закрывать файл перед сменой работы, например,
  после ReWrite перед Reset файл можно не закрывать, так как он закроется автоматически}
  Close(F1);
  Close(F2);
end.