Записать в типизированный файл из N произвольных натуральных чисел. Переписать в другой типизированный файл те элементы, которые кратны K. Вывести полученный результат на печать — Pascal(Паскаль)

uses crt;
var f,g:file of integer;
    n,k,a,i:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл n=');
readln(n);
writeln('Введите в файл ',n,', натуральных чисел:');
for i:=1 to n do
 begin
  readln(a);
  write(f,a);
 end;
write('Введите число для поиска кратных k=');
readln(k);
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
  if a mod k=0 then write(g,a);
 end;
writeln;
writeln;
close(f);
reset(g);
if filesize(g)=0 then write('Чисел, кратных ',k,' нет!')
else
 begin
  writeln('Числа, кратные ',k);
  for i:=0 to filesize(g)-1 do
   begin
    read(g,a);
    write(a,' ');
  end;
 end;
close(g);
readln
end.