Файл: Записать в файл h сначала компоненты файла f, затем - компоненты файла g в обратном порядке.

uses crt;
var f,g,h:file of char;
    c:char;
    n,i:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
assign(h,'fileH');
rewrite(h);
write('Сколько символов запмсать в файл F n=');
readln(n);
for i:=1 to n do
 begin
  readln(c);
  write(f,c);
 end;
write('Сколько символов запмсать в файл G n=');
readln(n);
for i:=1 to n do
 begin
  readln(c);
  write(g,c);
 end;
reset(f);
writeln('Содержание файла F:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
  write(h,c);
 end;
close(f);
writeln;
reset(g);
writeln('Содержание файла G:');
while not eof(g) do
 begin
  read(g,c);
  write(c);
 end;
writeln;
seek(g,0);
for i:=filesize(g)-1 downto 0 do
 begin
  seek(g,i);
  read(g,c);
  seek(h,filesize(h));
  write(h,c);
 end;
close(g);
reset(h);
writeln('Содержание файла H:');
while not eof(h) do
 begin
  read(h,c);
  write(c);
 end;
close(h);
readln
end.