Переписать в другой файл те числа, целая часть которых кратна 3

uses crt;
var f,g:file of real;
    i:integer;
    a,b:real;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
{создадим исходный файл}
for i:=1 to 20 do
 begin
  a:=-100+200*random;
  write(f,a);
 end;
{создаем второй файл}
seek(f,0);
while not eof(f) do
 begin
  read(f,a);
  if trunc(a)mod 3=0 then write(g,a)
 end;
writeln('Число элементов 1 файла=',filesize(f));
writeln('Число элементов 2 файла=',filesize(g));
writeln('Элементы 1 файла из интервала [-20;30]');
i:=0;
seek(f,0);
while not eof(f) do
 begin
  read(f,a);
  if(a>=-20)and(a<=30)then
   begin
    i:=1;
    write(a:8:2);
   end;
 end;
if i=0 then write('Чисел из этого интервала нет');
writeln;
close(f);
writeln('Содержание 2 файла');
seek(g,0);
if filesize(g)=0 then write('Второй файл пустой')
else
 while not eof(g) do
  begin
   read(g,a);
   write(a:8:2)
  end;
close(g);
readln
end.