Delphi7 исправить ошибку

[Анастасья]

При некоторых заданных х, N и Е, определяемых вводом, вычислите суммму N
слагаемых, которые по абсолютной величине больше Е. Для второго случая
выполните суммирование для двух значений Е, отличающихся на порядок, и при
этом определите количество слагаемых, включённых в сумму. Сравните результаты
с точным значением, для которой данная сумма определяет приближенное значение
при х, лежащим в интервале (-R, R)

ln(1-х) = (х/1) - ((х^2)/2) - ((х^3)/3) - ((х^4)/4) - ... )
(R=1)
}

program Z25;

{$APPTYPE CONSOLE}

uses
SysUtils, windows, Math;

var
Sum, cur, e, x, exact: real;
n, i, j: integer;

begin
setConsoleCP(1251);
setConsoleOutPutCP(1251);

//Ввод Х.
write('x=');
repeat
readln(x);
until abs(x)<1;

//Ввод N.
write('n=');
repeat
readln(n);
until n>0;

exact:=ln(1-x);

// Вычислим сумму N членов.
cur:=-x;
Sum:=-x;
for i:= 1 to n-1 do
begin
cur:=cur*x;
Sum:=Sum+cur/(i+1);
end;

//печать суммы N членов.
writeln;
writeln('Точное значение: ', exact);
writeln('Сумма ', n, ' членов: ', Sum);
writeln;

//Ввод E.
write('E=');
repeat
readln(e);
until (E>=0) and (E<=1);

//Считаем приближенные значения.
for j:=1 to 2 do
begin
cur:=-x;
Sum:=-x;
i:=1;
while abs(Cur)>E do
begin
cur:=cur*x;
Sum:=Sum+cur/(i+1);
i:=i+1
end;

writeln;
writeln('С точностью E= ', E);
writeln('Точное значение: ', exact);
writeln('Приближенное: ', Sum);
writeln('Количество слагаемых: ', i);
E:=E/10;
end;
readln;
end.

Помогите исправить ошибку программа идет но неправильно выдает результат. Ошибка вроде бы находится в части ,где нужно подсчитать приближенное значение...