Типизированные файлы Опции

[Credo]

Даны два файла вещественных чисел с именнами Name1 и Name2, элементы которых упорядочены по убыванию. Объединить эти файлы в новый файл с именем Name3, сохранив порядочность элементов.
Ошибок море. Файл не найден. Непонятный спецификатор. на eof(f,a) ругается что скобки нехватае...
Помогите исправьте мою ошибку

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 do
a[i]:=n-i;
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.