вычислить сумму.где ошибка?

[peacock]

задание: Вычислить сумму S с заданной точностью E. заданная точность достигнута, если очередное слагаемое по модулю меньше E. определить номер и величину последнего учитываемого слагаемого
S=x + x^5/5 + ... + x^(4n+1)/(4n+1) + ...

получилось как-то так:

program sum;
uses crt;
var i:integer;
E,z,st,sl,x:real;
begin
clrscr;
writeln ('Введите x');
readln (x);
writeln ('Введите e');
readln (e);
z:=0;
st:=x;
i:=1;
sl:=x;
while abs(sl)>=e do begin
z:=z+sl;
i:=i+1;
st:=st*x*x*x*x;
sl:=st/(4*(i-1)+1);
end;
writeln ('z=',z);
readln;
end.

но ничего не получается( в чем ошибка?

[alex_fcsm]

Х вводи от 0 до 1

program sum;
uses crt;
var i,j:integer;
E,temp,sl,x:real;
begin
clrscr;
writeln ('Введите x');
readln (x);
writeln ('Введите e');
readln (e);
i:=1;
sl:=x;
repeat
temp:=1;
for j:=1 to (4*i+1) do
 temp:=temp*x;
temp:=temp/(4*1+1);
if temp>e then sl:=sl+temp;
inc(i);
until temp<e;
writeln ('Sum=',sl:6:4);
readln;
end.