Обработка одномерных массивов \Дельфи/

sum:=0;
p:=1;
for i:=1 to n do
 begin
 d:=s/p;
 if (i=1) or (d>max)  then
    max:=d;
 sum:=sum+a;
 p:=p*a;
 end;