Реккурентная функция заданная в виде бесконечного ряда

[den1v2]

Задача вложена в файле формата .doc ибо как ввести здесь формулу я не знаю. Я пытался сделать сам но оказалось неправильно вот код может кто нибудь поможет исправить буду очень благодарен.
P.S.:не ругайтесь только пожалуйста напишите просто что тема закрыта если что

[den1v2]

вот код:
var xn, xk, dx, E, x, z, S, a, b : real;
n : integer;
begin
xn:=StrToFloat(Edit1.Text);
xk:=StrToFloat(Edit2.Text);
dx:=StrToFloat(Edit3.Text);
E:=StrToFloat(Edit4.Text);
x:=xn;
Label1.Caption:='x S Z N'+#13;
while x<=xk+0.1 do
begin
S:=0;
n:=1;
z:=(exp(x)-exp(-x))/2;
b:=1;
repeat
a:=b/(2*n-1);
S:=S+a;
b:=b*sqr(x)/(2*n*(2*n+1));
n:=n+1;
until abs(a)<E;
Label1.Caption:=Label1.Caption+Floa tToStrf(x,fffixed,1,1)+' '+
FloatToStrf(S,fffixed,6,4)+' '+FloatToStrf(z,fffixed,6,4)+' '+
IntToStr(n)+#13;
x:=x+dx;
end;

end;