Массивы, Из обычного в динамический Опции

[Kaliban]

Есть прога, где с помощью массива чисел по формулам определяются несколько переменных.
Нужно тоже самое провернуть с помощью динамических массивов. сможете переделать? код прилагается.

program mas6;
var f: array[1..8] of real;
    sum,fmin,fmax,b1,b2,s,x: real;
    i: integer;
    t: text;
begin
assign(t, 'mas06.dan');
reset(t);
fmin:=1e30;
fmax:=-1e30;
for i:=1 to 8 do
    begin
    read(t,f[i]);
    if f[i]<fmin then fmin:=f[i];
    if f[i]>fmax then fmax:=f[i];
    sum:=sum+(f[i]/i)
    end;
b1:=sqr(fmin);
b2:=sqr(fmax)*fmax;
s:=(fmin/(b1+b2))*sum;
writeln('b1=',b1:3:1,'b2=',b2:3:1,'s=',s:3:5);
read(x);
end.