Арифметическая задача. Обязательно на цикл с параметром! - Pascal ABC

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

Всем добрый день. Есть такая задача (рисунок прилагается)... Во входном потоке задано три вещественных числа a (a > 0), b (b < 0), x (-1 < x < 1). Значения исходных данных подобраны так, что выражение имеет смысл. Пример входных данных: 2.4 -4.2 0.6 В выходной поток вывести единственное вещественное число с точностью три знака после запятой. Пример выходных данных: -26.407 Вот мой код... Не могу понять где ошибка(

program cikl;
 
var
  a, b, x, sigm, sigm2, step : real;
  s, p, i : longint;
 
begin
 read (a, b, x);
 
 sigm := 0;
 sigm2 := 0;
 
 for i :=1 to round (x) do
   step := s*s;
  
 for s := round (20*a) to round (10* (2*a + 1)) do
   begin
     for p := s-9 to s+1 do
      begin
        if (p+s) mod 2 = 0 
         then
           sigm2 := sigm2 + (1*x+p)/s-64
         else
           sigm2 := sigm2 + (-1*x+p)/s-64;
      end;
      sigm := sigm + (sigm2*(a/5*exp(x*Ln(s))));
   end;
   writeln (sigm:0:3);
end.

Решение задачи: «Арифметическая задача. Обязательно на цикл с параметром!»

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

 Write('Введите a:');
 readln(a);
 Write('Введите b:');
 readln(b);
 Write('Введите x:');
 readln(x);

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

Пользователю предлагается ввести три числа: a, b и x.
Значения переменных a, b и x считываются с помощью функции readln().
Значение переменной a объявлено как a, значение переменной b объявлено как b, а значение переменной x объявлено как x.