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

[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 хотя должно быть совсем другое значение.
Исправьте пожалуста что не так. Заранее спасибо.

[RIJIKOV]

народ,я тугодум до всего додуматься мне очень сложно,я же не такой как вы еслибы я знал как ее делать,то сюда бы не обращался. Сделайте ее пожалуста хоть ктонибудь с нуля,кому не впадлу.Я ету прогу просто не через функцию сделал и сдал преподу,формула у меня была s:=exp(sqrt(abs(s))); просто одномерный массив,за который я получил 5 а вот через функцию его не как не могу! если хотите могу текст программы просто одномерного выложить(текст етой проги,не через функцию)?