Типизированные файлы

[mikk]

Помогите пожалуйста
Необходимо на Турбо Паскаль сделать...

Заданный файл F, компоненты которого являются целые числа. Записать в файл G все компоненты файла F, что: а) делятся на 3 и не делятся на 7; б) являются точными квадратами.

[ZX Spectrum-128]

{Заданный файл F, компоненты которого являются целые числа. Записать в файл G все компоненты файла F, что:
а) делятся на 3 и не делятся на 7; б) являются точными квадратами.}
const
  n=25;
var
  f,g:file of integer;
  i:integer;
begin
  {создание файла f}
  {напишите самостоятельно}
  assign(g,'integer2.dat');
  reset(f);
  rewrite(g);
  while not eof(f) do
    begin
      read(f,i);
{условие а} //     if (i mod 3=0) and (i mod 7<>0) then
{условие б}      if frac(sqrt(i))=0 then
        write(g,i);
    end;
  close(f);
  close(g);
end.