Составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд.

[Kamelok]

Помогите переделать
Составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью е>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше е: abs(ак) <е.
При вычислении очередного члена целесообразно воспользоваться рекурентным выражением:
ак+1=ск ак; к= 0, 1, 3, ...,
где ак - некоторый к-ый член ряда; ак+1 - следующий к+1-ый член ряда; ск - коэффициент, определяемый номером к.
При составлении программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR.
Границы интервала вычислений функций a и b, величина шага изменения аргумента h и точность вычисления функции е задаются при вводе. На печать выводятся номер по порядку, значение аргумента, соответствующие ему, значение функции и номер члена ряда, на котором закончилось вычисление значение функции, в форме таблицы:

№	Х	f (x)	№ чл.р.
№	Х	f (x)	№ чл.р.
1	
2	
3	
...

Значение выражения,которое необходимо вычислить прикреплено в рисунке!
Пример программы:

uses
  crt;

var
  f, x, e, a, b, chlen, h: double;
  code: integer;
  t, num, k: int64;
  s: string;
  l: char;

begin
  clrscr;
  repeat
    write('Введите левую границу интервала А: ');
    readln(s);
    val(s, a, code);
  until (code = 0);
  
  repeat
    write('Введите правую границу B (B>A): ');
    readln(s);
    val(s, b, code);
  until (code = 0) and (b > a);
  
  repeat
    write('Введите значение точности вычисления  E (0<E): ');
    readln(s);
    val(s, e, code);
  until (code = 0) and (e > 0);
  
  repeat
    write('Введите значение шага изменения x - h (h>0): ');
    readln(s);
    val(s, h, code);
  until (code = 0) and (h > 0);
  
  repeat
    write('Введите значение точности измерений при выводе на экран: ');
    readln(s);
    val(s, t, code);
  until (code = 0) and (t > 0);
  
  writeln;
  writeln('Вы ввели:');
  writeln('Левую границу интервала А: ', a:1:5);
  writeln('Правую границу  интервала B: ', b:1:5);
  writeln('Значение точности вычисления E: ', e:1:5);
  writeln('Значение шага изменения h: ', h:1:5);
  readln;
  f := 0;
  x := a;
  num := 1;
  writeln('--------------------------------------------------------------------------------');
  writeln('|Номер|         X           |         f(x)           | Номер члена ряда        |');
  writeln('--------------------------------------------------------------------------------');
  
  while (x <= b + 0.00001) do 
  begin
    k := 0;
    f := x;
    chlen := x;
    repeat
      chlen := chlen * ((sqr(x)) / ((2 * k + 2) * (2 * k + 3)));
      if k mod 2 = 0 then f := f - chlen else
        f := f + chlen;
      k := k + 1;
    until chlen <= e;
    writeln('|', num:5, '|', x:20:t, ' |', f:23:t, ' |', k + 1:15, ' |');
    writeln('--------------------------------------------------------------------------------');
    num := num + 1;
    x := x + h;
    l := readkey;
  end;
  writeln('Конец таблицы');
  readln;
end.