Имеет ли значение, если я поставлю close(f) (см. в коде)
Кусок:
reset(f);
while not eof(f) do begin
read(f,t);
summ:=summ+t;
summabs:=summabs+abs(t);
end;
close(f); {здесь}
writeln('summ=',summ:0:2,' abs summ=',summabs:0:2,' filename=',s);
close(f); {или здесь?}
readln;
end.