Записать в файл g все компоненты файла f, которые являются полными квадратами.

[loloverg]

Помогите решить буду очень благодарен.
Задание 1. Дано файл f, компоненты которого являются натуральные. Записать в файл g все компоненты файла f, которые являются полными квадратами.

[DoDge_VipeR]

assign(f,'1.inp');
assign(g,'1.out');
reset(f);
rewrite(g);
while not eof(f) do begin
read(f,a);
if frac(sqrt(a))=0 then write(g,a);
end;
close(f);
close(g);