Вычислить значение выражения - Pascal ABC (14188)

Формулировка задачи:

проверьте пожалуйста, нет ли ошибок?

var zn,s,x:real;
i:integer;
begin
write('vvedite x=');
read(x);
s:=0;
zn:=2;
for i:= -1 to -8  do
s:=(s+(i+1)*exp(i*x))/zn+1;
i:=i+1;
writeln ('s=',s);
end.

Решение задачи: «Вычислить значение выражения»

Листинг программы

var s,x:real;
    i:integer;
begin
write('vvedite x=');
readln(x);
s:=0;
for i:=2 to 9 do
s:=s+exp((1-i)*x)/i;
writeln ('s=',s:0:4);
end.

Объяснение кода листинга программы

Создаются переменные s, x и i типа real и integer соответственно.
Выводится сообщение «введите x=» для ввода значения переменной x.
Инициализируется переменная s значением 0.
Запускается цикл for, который выполняется от 2 до 9 (не включая 9).
Внутри цикла вычисляется значение выражения (1-i)*x/i и присваивается переменной s.
После завершения цикла выводится значение переменной s с точностью до 4 знаков после запятой.