Следующего плана: 1)заполнить числами типизированный файл; 2)считать эти цифры в байтах; 3)вывести эти цифры в другой файл.txt; вот код,который я написал,но не выводятся цифры

Program ex;
const
  N=200;
var
  i,x:integer;
  f:file of integer;
  f2:Text ;
begin
  Assign(f,'pervuy.txt');
  Assign(f2,'vuxod2.txt');
  Rewrite(f);
  for i:=1 to N do Write(f,i*5);
  Close(f); Reset(f);
  Rewrite(f2);
  for i:=1 to N do begin
    Read(f,x);
    Write(f2,x,' ');
    end;
  Close(f); Close(f2)
end.