var file1,file2:Text; // описание файловых переменных
      a:string;

begin
  Assign(file1,'a.txt'); // путь и название файла,  вот этот файла надо создать и записать туда хоть что
  Reset(file1); //открывает файл для чтения
  readln(file1,a); //считывают 1 строку с file1 и присваивает переменной а
  Assign(file2,'b.txt');// тоже самое только с файлом в который ты будешь выводить( его можно не создавать, он сам создастся)
  rewrite(file2);// открывается файл уже не для чтения как reset, а для записи  
  writeln(file2,a);// записываем значение переменной а в файл
  close(file1);//закрываем оба файла
  Close(file2);
end.