Даны символьные файлы* f и g. Записать в файл h сначала компоненты файла* f, затем — компоненты файла g с сохранением порядка — Pascal(Паскаль)

uses crt;
var f,g,h:file of char;
    c:char;
    i:byte;
begin
clrscr;
assign(f,'file1');
rewrite(f);
assign(g,'file2');
rewrite(g);
assign(h,'file3');
rewrite(h);
writeln('Введите в файл file1 10 символв:');
for i:=1 to 10 do
 begin
  readln(c);
  write(f,c);
 end;
close(f);
writeln('Введите в файл file2 5 символв:');
for i:=1 to 5 do
 begin
  readln(c);
  write(g,c);
 end;
close(g);
reset(f);
clrscr;
writeln('Fail 1:');
while not eof(f) do
 begin
  read(f,c);
  write(h,c);
  write(c,' ');
 end;
writeln;
close(f);
{close(h);}
reset(g);
writeln('Fail 2:');
while not eof(g) do
 begin
  read(g,c);
  write(h,c);
  write(c,' ');
 end;
writeln;
close(g);
reset(h);
writeln('Файл 3:');
while not eof(h) do
 begin
  read(h,c);
  write(c,' ');
 end;
close(h);
readln
end.