Найти массив сумм с точностью до e Опции

[Миа]

Не могу справиться с задачей, так как не понимаю условия. В методичке был пример решения данной задачи, я попыталась по примеру составить программу, но мало того что выдает ошибку, так еще и понятие "с точностью до е" меня сбивает с толку (я его просто не понимаю).

Найти массив сумм S элементов ряда для каждого значения заданной последовательности Х (с использованием оператора for). Каждую сумму искать с точностью до e.
S=x^3/3-x^5/15+...+((-1)^(n+1))*(x^(2n+1))/(4n^2-1)
x=0.1...1.3, hx=0.3, e=10e-3

Вот текст, который я попыталась составить:

PROGRAM Lab_7_2;
USES
     Crt;
CONST
     m   = 5;          {Количество Х}
     xn  = 0.1;        {Начальное знеачение Х}
     xk  = 1.3;        {Конечное значение Х}
     hx  = 0.3;        {Шаг по Х}
     eps = 1e-3;       {Коэффициент точности}
VAR
     s : array [1..m] of real; {Массив сумм}
     q : real;                 {Коэффициент рекурентности}
     i : integer;              {Счетчик элементов ряда}
     x : real;                 {Текущий Х}
     k : integer;              {Счетчик Х}
BEGIN
     ClrScr;
     x:=xn;            {Начальный Х}
     k:=1;
     WHILE x<=xk+eps DO
           Begin
                i:=0;
                REPEAT {Цикл поиска k-ой суммы}
                       q:=exp((2*i+1)*ln(x))/((4*sqr(i))-1);
                       if odd(i)=false then q:=-q;
                       s[k]:=s[k]+q;
                       i:=i+1;
                UNTIL abs(q)<eps;  {Условие точности}
                Writeln('k = ',k,'  x = ',x:3:1,'  S = ',s[k]:6:4);
                k:=k+1;
                x:=x+hx;          {Переход на следующий Х}
                Readln;
           End;
END.

Помогите составить правильную программу...