Вычислить сумму ряда с заданной точностью

const
    line = '+-----+--------------------+---------------------+';
 
var
    eps : Single = 0;
    x : Single = 0;
    sum : Double = 0;
    fact : Double = 1;
    pow : Double;
    k : Word = 0;
    sumK : Double;
 
begin
    while (x = 0) do
    begin
        Write('Input x=');
        ReadLn(x);
    end;
    pow := x;
    sumK := x;
    while (eps <= 0) do
    begin
        Write('Input eps=');
        ReadLn(eps);
    end;
    WriteLn(line);
    WriteLn('|  k  |         si         |         sum         |');
    WriteLn(line);
    while (Abs(sumK) > eps) do //если без модуля, то каждый раз будет только две итерации
    begin
        sumK := pow / (fact * (4 * k + 1));
        sum := sum + sumK;
        Inc(k);
        fact := fact * (2 * k - 1) * (2 * k);
        pow := -pow * sqr(sqr(x));
        WriteLn('| ', k:3, ' | ', sumK:18:5, ' | ', sum:19:7, ' |');
    end;
    WriteLn(line);
end.