Заполните файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g те компоненты файла f, которые являются четными — Pascal(Паскаль)

CONST
  f_Name = 'f.txt';
  g_Name = 'g.txt';
  Max_num = 200;
  Max_count = 300;
VAR
  f, g: Text;
  i, n: Integer;
BEGIN
  Assign(f, f_Name);
  Rewrite(f); {Открываем для записи. Если не было такого, то
               будет создан. Если был, то содержимое будет удалено}
  for i:=1 to Max_count do writeLn(f, Random(max_num));
  Flush(f); {В текстовый файл запись идет медленно.
             Команда Flush заставляет ждать, пока все будет переписано}
  Close(f);

  Reset(f); {Теперь открываем файл f для чтения}
  Assign(g, g_Name); Rewrite(g);
  i:=0;     {Будет счетчик}
  WHILE NOT EOF(f) do begin
    Read(f, n);
    if not ODD(n) then begin
      WriteLn(g, n);
      inc(i)
    end;
  end;
  Flush(g); Close(g);
  Close(f);
  WriteLn('Записано ',i,' чисел');
END.