Цикл итерации, рассчет ф-ции с точностью до знака!!!

[Npwas]

В задаче надо чтобы ф-цию высчитывало с точностью до знака
Для аргумента , изменяющегося от –0.6 с шагом 0.05 вычислить 20 значений функций:

f1:=1+(1-x)*Ln(1-x) и f2:=SUM(изменяется до бесконечности от k=1)
SUM:=Exp((k+1)*Ln(x))/(k*(k+1)); с точность до E1=0.01, E2=0.001, E3=0.0001
Вот что пока что у меня получилось, подскажите пожалуйста ошибку и объясните если можете как высчитывать с точностью до знака

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
Var x, f1, f2, sum : Real;
k, n :Integer;
begin
x:=-0.6;
k:=1;
sum:=0;
n:=1;
While x<=0.4 do
begin
f1:=x+(1-x)*Ln(1-x);
begin
if x<=0 then
begin
if (k+1) div 2=0 then
f2:=Exp((k+1)*Ln((-1)*x))/(k*(k+1))
else
f2:=-Exp((k+1)*Ln((-1)*x))/(k*(k+1));
end;
if x>0 then
begin
if (k+1) mod 2=0 then
f2:=Exp((k+1)*Ln(x))/(k*(k+1))
else
f2:=-Exp((k+1)*Ln(x))/(k*(k+1));
end;
sum:=sum+f2;
k:=k+1;
end;
Writeln('',n,' ',f1,' ',sum);
x:=x+0.05;
n:=n+1 ;
end;
Readln;
end.