Даны два файла f и g, компонентами которых являются целыми числами!Получить файл g, образованный из файла f исключением нечётных чисел — Pascal(Паскаль)

Program z31;
uses crt;
var
  f,g:file of integer;
  i,x,k:integer;
begin
  assign(f,'numbers.dat');
  assign(g,'numbers2.dat');
  reset(f);
  rewrite(g);
  writeln('vedite kolichestvo chifr dly faila f');
  readln(k);
  while not(eof(f)) do
    begin
      read(f,x);
      if x mod 2=0 then
      write(g,x);
    end;
    close(f);
    close(g);
end.