Переписать данные их одного файла в другой согласно конкретному варианту

var f,g: textfile; i,j,n,k: integer;
begin
AssignFile(F, 'f');
AssignFile(g, 'g');
Rewrite(F); Rewrite(g);
Randomize;
n := random(100);
Memo1.Clear; j:=0;
Memo1.Lines.Add('File F -- File G');
for i:=0 to n do
 begin
  k := random(100)+1;
  Write(F,k);
  Memo1.Lines.Add(IntToStr(k));
  if k mod 2 = 0 then
   begin
    Write(G, k); Inc(j);
    Memo1.Lines.Strings[j] := Memo1.Lines.Strings[j]
                           +'   ---   '+IntToStr(k);
   end;
 end;
CloseFile(F);
CloseFile(G);
//DeleteFile('g');

var f : file of integer;

var 
  f, g : file of integer;
  a : integer;
begin
  AssignFile(f, 'File1.dat');
  Reset(f);
  AssignFile(g, 'File_Result.dat');
  Rewrite(g);
  while not eof(f) do begin
    Read(f. a);
    if not odd(a) then Write(g, a);
  end;
  CloseFile(f);
  CloseFile(g);
end.