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

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.

var t,t1:text;
    s:string;
    i:byte;
begin
clrscr;
assign(t,'file1.txt');
reset(t);
assign(t1,'file2.txt');
rewrite(t1);
while not eof(t) do
 begin
  readln(t,s);
  for i:=length(s) downto 1 do
  if s[i]=' 'then
   begin
    delete(s,i,1);
    insert('******',s,i);
   end;
  writeln(t1,s);
 end;
close(t);
close(t1);
write('Fail zapisan!');
readln
end.