Данные записываються только в один файл, а не в два

Данные берутся с файла. Четные числа нужно записать в файл g, а не четные в файл h. Все числа записываются только в файл g. Вот код:

var f,h,g:file of integer;
    a:array[1..10000] of integer;
    n,i:integer;
begin
Assign(f,'D:/file1.pas');
Assign(h,'D:/neparni.pas');
Assign(g,'D:/parni.pas');
Reset(f);
n:=0;
while not eof(f) do begin
Inc(n);
read(f,A[n]);
end;
close(f);
rewrite(h);
for i:=1 to n do begin
if A[i] mod 2 <> 0 then write(h,A[i]);
end;
close(h);
rewrite(g);
for i:=1 to n do begin
if A[i] mod 2 = 0 then write(g,A[i]);
end;
close(g);
end.