Не работает программа

[F I G H T E R]

Написал программу, а она считает не правильно(( Не могу понять почему.

program summa;
uses crt;
var
n: integer;
xn, xk, dx, e, x, y, f: real;
begin
clrscr;
write ('Введите начало интервала: ');
readln (xn);
write ('Введите конец интервала: ');
readln (xk);
write ('Введите шаг: ');
readln (dx);
write ('Введите точность: ');
readln (e);

writeln ('-------------------------');
if (xn >= -1) and (xk < 1) and (xk > xn) then
while xk >= xn do
begin
x := xn;
n := 1;
f :=x+(x*x)/2;
while abs(f) > e do
begin
n := n + 1;
f := -(exp(ln(abs(x))*n))/n;
y := y + f;
end;
writeln (x:10:6, y-x:14:6, n:9);
xn := xn + dx;
end
else writeln ('Интервал введён не верно');
readln
end.

[Mad_Cat]

function Ln1(X,e:real):real;
var
i:integer;
sum,Step:real;
begin
Step:=X;
sum:=X;
i:=2;
while abs(Step/i)>=e do
begin
step:=step*(X);
sum:=sum+step/i;
inc(i);
end;
Ln1:=-sum;
end;
var xn,xk,e,dx:real;
begin
readln(xn);
readln(xk);
readln(dx);
readln(e);
while xn<=xk do begin
Writeln(xn,'    ', Ln1(xn,e):7:3,'       ',ln(1-xn):6:3);
xn:=xn+dx;
end;
end.

Результат

-0.9
0.9
0.6
0.0001
-0.9 0.642 0.642
-0.3 0.262 0.262
0.3 -0.357 -0.357
0.9 -2.302 -2.303

Красивости рисуйте сами!