Question

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

Answer 1

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.

Answer 2

В раздел описания переменных добавь одну строчку:
var
f1,f2:text;
s:string;
i:integer;

Answer 3

Удали: write(f2,ReverseString(s));

Answer 4

вот , спасибо огроменное!!!!