одномерный массив через функцию, нужна помощь Опции

[RIJIKOV]

Задана последовательность N веще6ственных чисел.Вычислить значение выражения: корень в N степени,под корнем по модулю x1*x2*...xn( или s=exp(sqrt(abs(s))); )

program zadacha;
uses crt;
var n:integer;
i:byte;
x:array[1..100] of integer;
s,z:real;
function func(s:real):real;
begin
s:=s*x[i];
s:=exp(sqrt(abs(s)));

end;
begin
clrscr;
writeln('vvedite n=');
readln(n);
s:=1;
for i:=1 to n do
begin
writeln('vvedite zna4enie');
readln(x[i]);
end;
{for i:=1 to n do}
begin
s:=func(s);
s:=exp(sqrt(abs(s)));
writeln('s=',s:2:1);
end;
readln;

end.

в контрольном примере выводит s:=1 хотя должно быть совсем другое значение.
Исправьте пожалуста что не так. Заранее спасибо.