Создать текстовый файл f1. Конкатенировать файл f1 самого с собой, только записанного задом
наперед и результат записать в файл f2. Вывести на экран файл f2.

Var
  f1,f2:text;
  s:string;
begin
assign(f1,d:/f1.txt);
reset(f1);
read(f1,s);
close(f1);
assign(f2,d:/f2.txt);
rewrite(f2);
write(f2,s);
write(f2,ReverseString(s));
close(f2);
assign(f2,d:/f2.txt);
reset(f2);
read(f2,s);
writeln(s);
close(f2);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.