помогите исправить ошибку...
program fdjh;
uses crt;
var
F:file of integer;
in_name:string;
max,n,i,d:integer;
begin
writeln('Введiть iм`я файлу');
read(in_name);
assign(F,in_name);
rewrite(F);
writeln('Введiть розмiр файлу');
read(n);
for i:=1 to n do
begin
d:=random(101)-25;
write(F,d);
end;
close(F);
reset(F);
max:=-25;
while not eof(F) do
if (d>max)and(d mod 4=0) then
max:=d;
if max=-25 then writeln('Максимальний кратний 4 в файлі не існує')
else writeln('Максимальний кратний 4= ',max);
write(d,' ');
close(F);
end.