Занести в файл q те компоненты файла f, которые являются четными - Pascal ABC

Формулировка задачи:

Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Занести в файл q те компоненты файла f, которые являются четными.

Решение задачи: «Занести в файл q те компоненты файла f, которые являются четными»

textual
                            Листинг программы 
                        

                            var f,g:file of integer;
    n,a,i:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл F n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(50)+1;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a mod 2=0 then write(g,a)
 end;
close(f);
writeln;
reset(g);
if filesize(g)=0  then write('Нет четных чисел')
else
 begin
  writeln('Содержание полученного файла:');
  while not eof(g) do
   begin
    read(g,a);
    write(a,' ');
   end;
 end;
close(g);
end.
                        