uses crt;
var f,g:file of char;
a:char;
i:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
writeln('Введите в файл символы, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a='0';
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
begin
read(f,a);
write(a,' ');
end;
close(f);
writeln;
reset(f);
for i:=filesize(f)-1 downto 0 do
begin
seek(f,i);
read(f,a);
write(g,a);
end;
close(f);
reset(g);
writeln('Содержание нового файла:');
for i:=0 to filesize(g)-1 do
begin
read(g,a);
write(a,' ');
end;
close(g);
readln
end.