Пусть задан файл целых чисел. Из исходного файла создайте новый файл из элементов кратных 5 — Pascal(Паскаль)

Type TFile = File of Integer;
Var F1, F2 : TFile;
         N1,k: Integer;
Const FileName1 = 'Test.dat1';
        FileName2 = 'Test.dat2';
 
procedure CreatFile(var FF:TFile; N: Integer);
var i,b:Integer;
begin
  Rewrite(FF);
  for i:=1 to N do
  begin
    Write('[> ');     ReadLn(b);
    Write(FF, b);
  end;
  Close(FF);
end;
 
procedure LoadFromFile(Var FF:TFile);
var m:Integer;
begin
   Reset(FF);
   while not (eof(FF)) do
     begin
       Read(FF, m);
       Write(m,' ');
     end;
   Close(FF);
end;
 
 
begin
  Assign(F1,FileName1);
  Assign(F2,FileName2);
  Write('Input N1[> ');    ReadLn(N1);
  CreatFile(F1,N1);
  LoadFromFile(F1);
  WriteLn;
  Reset(F1);
ReWrite(F2);
while not Eof(F1) do
begin
Read(F1,k);
if k mod 5=0 then Write(F2,k);
end;
Close(F1);  Close(F2);
LoadFromFile(F2);
readln;
end.