Получить в файле q все компоненты файла f являющиеся точными квадратами (Pascal)

[Ziner_Fisher]

Помогите пожалуйста написать прошу на Pascal.
Дан файл f, компоненты которого являются целыми числами.
Получить в файле q все компоненты файла f являющиеся точными квадратами.

[Arigato]

Вот таким циклом по файлу пройдись:

while not EOF(f) do begin
  read(f, a);
  if frac(sqrt(a)) = 0 then
    write(q, a)
end;

[Serge_Bliznykov]

или таким циклом:

while not EOF(f) do begin
  read(f, a);
  if sqr(trunc(sqrt(a))) = a then
    write(q, a)
end;