Дан файл f, компоненты которого являются целыми числами. Составьте программу, записывающую в файле g все компоненты файла f, делящегося на 3 и принадлежащие интервалу (C,D) — Pascal(Паскаль)

uses crt;
var f,g:file of integer;
    a,c,d:integer;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
writeln('Введите в файл F целые числа, окончание ввода 0:');
repeat
write('a=');
readln(a);
write(f,a);
until a=0;
clrscr;
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
repeat
writeln('Введите 2 целых числа - диапазон для поиска, второе больше первого:');
readln(c,d);
until d>c ;
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if(a mod 3=0)and(a>c)and(a<d) then  write(g,a);
 end;
writeln;
close(f);
writeln('Содержание файла G:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.