Вычислить сумму ряда и указать количество учтённых слагаемых - Turbo Pascal

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

Здравствуйте, можете помочь с написанием программы) Даны действительные числа x, ε (x ≠0, ε > 0). Вычислить с -3, -4, -5, -6, точностью ε (ε = 10, 10, 10, 10) сумма ряда и указать количество учтенных слагаемых.

Решение задачи: «Вычислить сумму ряда и указать количество учтённых слагаемых»

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

                            function f(x,eps:real;var k:integer):real;
var t,s,s1,s2:real;
    n,m:integer;
begin
k:=0;
t:=x/2;//значение рекуррентной части члена при k=0
s:=t/(k+2); //значение суммы при k=0
while abs(t)/(k+2)>eps do
 begin
  k:=k+1;
  t:=-t*sqr((x/2))/k; //(-1)^k*(x/2)^(2k+1)//k!
  s:=s+t/(k+2)//t/(k+2)
 end;
f:=s;
end;
var x,y:real;
    n:integer;
begin
repeat
write('Введите x<>0 x=');
readln(x);
until x<>0;
writeln('-----------------------------------------------------------------------------');
writeln('|      |     e=10^-3    |     e=10^-4    |     e=10^-5    |     e=10^-6    |');
writeln('|  x   |----------------|----------------|----------------|----------------|');
writeln('|      |     f(x)   | n |      f(x)  | n |     f(x)   | n |     f(x)   | n |');
writeln('----------------------------------------------------------------------------');
y:=f(x,0.001,n);
write('| ',x:5:2, '|',y:11:8,' |',n:3);
y:=f(x,0.0001,n);
write('|',y:11:8,' |',n:3);
y:=f(x,0.00001,n);
write('|',y:11:8,' |',n:3);
y:=f(x,0.000001,n);
writeln ('|',y:11:8,' |',n:3,'|');
write('-----------------------------------------------------------------------------');
end.
                        