有一整数文件，现要求将其中的偶数加倍，奇数减1，变成一个偶数文件。
var f:file of integer;
    i,x:integer;
begin
 assign(f,'fint.dat');
 reset(f);
 i:=0;
 while not eof(f) do
 begin
  read(f,x);
  if odd(x) then x:=x-1
  else x:=2*x;
  seek(f,i);
  write(f,x);
  i:=i+1;
 end;
 close(f);
end.
这一段程序运行起来老是达不到预期效果，有谁能帮忙发现一下这个程序的问题呀？先
谢谢了呀！