Вычисление суммы N слагаемых заданного вида

programm laba;
var E1, E2, g, x, m, E, j, y, w1, w2: real;
z, i, N: integer;
begin
x:=1;
While abs(x)>=1 do
begin
Writeln('Введите x по модулю меньше 1');
Readln(x);
end;
Writeln ('Введите N');
Readln (N);
Writeln ('Введите E');
Readln (E);
j:=0;
y:=x;
for i:=1 to N do //Вычисляем сумму N слагаемых заданного вида
begin
j:=j+(y/i);
y:=y*x*(-1);
end;
Writeln ('Сумма N слагаемых = ', j:10);
m:=x/1;
y:=0;
z:=0;
i:=1;
While m>E do
begin
z:=z+1;
y:=y+m;
m:=m*x/1;
i:=i+1;
end;
Writeln ('Количество слагаемых по абсолютной величине больше E = ', E, ' равно ', z);
Writeln (' Cуммa тех слагаемых, которые по абсолютной величине больше E = ', E, ' равно ', y);
E1:=E/10;
E2:=E*10;
i:=1;
y:=0;
z:=0;
While m>E1 do
begin
z:=z+1;
y:=y+m;
m:=m*x/1;
i:=i+1; 
end; 
Writeln ( 'Количество слагаемых по абсолютной величине на порядок меньше E = ', E1 ' равно ', z);
Writeln (' Cуммa тех слагаемых, которые по абсолютной величине больше E = ', E, ' равно ', y);
While m>E2 do
begin
w2:=w1+m;
m:=m*x/1;
i:=i+1; 
end;
g:=ln(1+x);
Writeln('Точное значение функции = ', g:10);
If g>j then
Writeln ('Точное значение функции больше суммы N слагаемых: ', g:10, ' > ', j:10)
else if g<j then
Writeln ('Точное значение функции меньше суммы N слагаемых: ', g:10, ' < ', j:10)
else Writeln ('Точное значение функции равно сумме N слагаемых: ', g:10, ' = ', j:10);
Writeln ('Количество слагаемых по абсолютной величине больше E = ', z);
Writeln (' Cуммa тех слагаемых, которые по абсолютной величине больше E: ', y);
Readln;
End.