Файлы:     file_open.pas        file_in.txt

program file_open;

const
  N = 10;
var
  F_in, F_out: Text; // объявляем переменные для текстового файла
  a: array[1..N] of integer; // объявляем массив, в который будем считывать числа
  i: integer;
begin
  Assign(F_in,'./file_in.txt'); // переменной F_in назначить файл, расположенный рядом с программой
  Assign(F_out,'./file_out.txt'); // переменной F_out назначить файл, расположенный рядом с программой

  Reset(F_in); // открыть файл на чтение
  for i := 1 to 3 do
    Read(F_in, a[i]); // прочитать из файла данные и занести их в переменную
  Close(F_in); // закрыть файл

  Rewrite(F_out); // открыть файл на запись
  for i := 1 to 3 do
    Write(F_out, a[i], ' '); // записать данные из переменной в файл + добавить пробел
  Writeln(F_out); // записать перевод строки в файл
  Close(F_out); // закрыть файл

  Reset(F_in); // открыть файл на чтение
  Read(F_in, a[1], a[2], a[3]); // прочитать из файла данные и занести их в переменную
  Close(F_in); // закрыть файл

  Append(F_out); // открыть файл на добавление
  for i := 3 downto 1 do // цикл в сторону уменьшения
    Write(F_out, a[i], ' '); // записать данные из переменной в файл + добавить пробел
  Writeln(F_out); // записать перевод строки в файл
  Close(F_out); // закрыть файл
end.