Паскаль. Вычислить сумму элементов бесконечного ряда с заданной точностью e = 0,00001.

выведи рекурентную формулу и в цикле примерно как в этой проге
program summa;
uses crt;
var
x,e,a,s:real;
k:integer;
begin
write('x e: --> ');
readln(x,e);
s:=1; a:=1; k:=0;
writeln(' a s');
writeln('---------------');
repeat
a:=-a*x*x/((2*k+1)*(2*k+2));
writeln(a:6:3,s:8:3);
s:=s+a ;
inc(k);
until abs(a)<=e;
writeln('---------------');
writeln('s=',s:5:3);
end.