Помогите решить задачу, срочно надо Опции

[r_rock]

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

[MAXXX]

Естественно, нельзя за такое брать деньги!
Вот примерный код:

Код

Var r,d:Real;
begin
Assign(input,'{имя файла}');
Reset(input);
r:=0;
While not eof do
begin
Read(d);
r:=r+d;
end;
Close(input);
Writeln(r);
end.