Объединить файлы в новый файл с именем Name3, сохранив упорядоченность элементов

uses crt;
 const n=5;
var
 g,h,f,Name3,Name2,Name1 : file of integer;
 i,b,a : integer;
begin
 clrscr;
 assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
 rewrite(g);
 for i:=1 to n-i do
begin
 write('a='); readln(a);
 write(g,a);
  end;
   close(g);
  reset(g); rewrite(f);
  while not eof(g) do
   begin
    read(g,a);
    write(f,a)
     end;
      close(g);
     reset(h);
     while not eof(h) do
      begin
       read(h,b);
       write(f,b);
        end;
        close(h);
        reset(f);
        while not eof(f,a) do
         begin
        read(f,a);
        write(a);
         end;
          close(f);
        end.

const n=5;
var
 g,h,f,Name3,Name2,Name1 : file of integer;
 i,b,a : integer;
begin
 assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
 rewrite(g);
 for i:=1 to n do
 
begin
 write('a='); readln(a);
 write(g,a);
  end;
   close(g);
  reset(g); rewrite(f); rewrite(h);
  while not eof(g) do
   begin
    read(g,a);
    write(f,a)
     end;
      close(g);
     reset(h);
     while not eof(h) do
      begin
       read(h,b);
       write(f,b);
        end;
        close(h);
        reset(f);
        while not eof(f) do
         begin
        read(f,a);
        writeln(a);
         end;
         readln;
          close(f);
        end.