помогите исправить ошибки в задачке на pascale
program chast;
var s:real;
n:integer;
sign:integer;
factor:integer;
i:integer;
begin
write('Ukazhite kol-vo elementov rada n=');
readln(n);
s:=0;
factor:=1;
for i:=1 to n do
begin
if i mod 2 = 0 then
sign:=-1
else
sign:=1;
factor:=factor*i;
s:=s+sign*((i+1)*exp(i*ln(x)))/factor;
writeln('s=',s);
end;
readln;
end.