исправте код(

[basav1k]

Помогите исправить код ато чото неработает програма(

Дано файл f, компоненты которого являются натуральные. Записать в файл g все компоненты файла f, которые являются полными квадратами.
var a,i,n:integer;
f,g:file;
b:array[1..100] of integer;
begin
assign(f,'fileIn.txt');
reset(f);
n:=0;
while not eof(f) do
begin
inc(n);
read(input,a);
b[n]:=a;
end;
assign(g,'fileOut.txt');
rewrite(g);
for i:=1 to n do
if (frac(sqrt(b[i]))=0) then write(g,b[i],' ');
close(g);
close(f);
readln;
end.

[Ol'ga_new]

Может проблема в том, что файл не типизированный. Функция записи write не работает верно???