Даны два символьных файла одинакового размера. Произвести обмен информацией между ними Pascal

program lab7_zad1;

var new_file_1 : text; 
    new_file_2 : text; 
    simvol_1: string;
    simvol_2: string;
    en3:=Encoding.UTF8; {Кодировка для текстового файла}
    
begin
  assign(new_file_1, 'file_simvol_1.txt');  
  assign(new_file_2, 'file_simvol_2.txt');

  reset(new_file_1, en3);
  reset(new_file_2, en3);
 
  readln(new_file_1, simvol_1);
  readln(new_file_2, simvol_2);

  close(new_file_1);    
  close(new_file_2);

  writeln('Исходный 1 файл: ', simvol_1);
  writeln('Исходный 2 файл: ', simvol_2);
end.

Содержимое файлов:

• file_simvol_1.txt

  Мама пошла в магазин

• file_simvol_2.txt

  Папа уехал на работу

Как произвести обмен между файлами? Чтобы в file_simvol_1.txt было Папа уехал на работу, а в file_simvol_2.txt было Мама пошла в магазин