Работа с одномерными массивами чисел Опции

[Russel]

Работа с одномерными массивами чисел (сумма, произведение, формирование нового массива).
Задание во вложенном файле... №4

var f,d:array [1..8] of real;
c,s:real;
i:integer;
begin
for i:=1 to 8 do
begin...

Как записать, чтоб информация из файла считалась?

end;

s:=0
s:=s+f[i]...
Придрался препод... 
for i:=1 to 8 do
begin
c:=s*(f[i]-2.5)/d[i];
writeln ('c', i, '=');
end;
end.

Как можно не которые значения ещё другими способами записать? Типа f[i] нельзя через copy там...