Работа с файлами.Ввод,вывод в файл

Program Writing;
Var
  FileName : string; {строка, содержащая имя файла}
  FVar : file of byte; {переменная файлового типа}
  Index : byte;
Begin
  write ('Введите имя файла ');{предложение ввести имя файла}
  readln (FileName);{ввод имени файла}
  assign (FVar, FileName);{связь имени файла и переменной}
  rewrite (FVar);{открытие файла для записи}
  for Index := 0 to 99 do {цикл для расчетов и вывода данных в файл}
    write (FVar,Index);{запись в файл FVar величины Index}
  close (FVar); {закрытие файла}
End.

Рrogram Writing;
Var
  FileName : string; {строка, содержащая имя файла}
  FVar : file of char; {переменная файлового типа}
  Index : integer;
  Letter : char; {читаемый из файла символ}
Begin
  write('Enter filename: '); {предложение ввести имя файла}
  readln (FileName); {ввод имени файла}
  assign (FVar,FileName); {связь имени файла и переменной}
 
  reset (FVar); {открытие файла для чтения и записи}
 
  if IOResult <> 0 {выход, если файл не открыт}
    then
      begin
        writeln ('Не открыт файл ', FileName);
        Halt
      end;
  while not EOF (FVar) do {цикл до конца файла}
    begin
      read (FVar, Letter); {чтение символа из файла}
      Letter:=Upcase(Letter); {преобразование букв}
      Seek(FVar,FilePos(FVar)-1); {перемещение указателя назад на 1 позицию}
      write(FVar,Letter); {запись преобразованной буквы}
    end; {конец цикла}
  close(FVar) {закрыть файл}
End.

  assign (FVar,'C:\1.txt'); {связь имени файла и переменной}