Ответ:

в папке должен быть файл с названием f1.txt  (или в коде измени название )

##

var f1, f2 : textFile;

var i,n : integer;  

var s:string;

begin

 AssignFile(f1, 'f1.txt');  Reset(f1);

 AssignFile(f2, 'f2.txt');  Rewrite(f2);

 while not eof(f1) do begin

   Readln(f1,s);

   n := length(s) div 2;

   for i := 1 to n do

       Swap(s[i],s[length(s)-i+1]);  

   writeln(f2,s);

 end;

 CloseFile(f2);

 CloseFile(f1);

end