задача на while или repeat, переделать или если совсем неверно то написать как надо Опции

[Leito]

решить задачу нужно через цикл while или repeat
вот что у меня получилось - программа компилируется, но при вводе любых n и x или выдается 205 ошибка (A floating-point overflow) или программа просто повисает

Код

program zicle;
var x,b,n,e,s,y:real;
c,p,i:integer;
begin
writeln ('vvedite n');
readln (n);
writeln('vvedite x');
readln (x);
if x<1 then writeln ('vi4islenie nevozmojno);
s:=0;
n:=1;
i:=1;
c:=0;
for c:=0 to i do
p:=p*(-1);
b:=exp((2*n)*ln(x))/(2*n);
e:=abs(p*exp((2*i)*ln(x)))/(2*i);
while e<0.0001 do
begin
p:=1;
while i>=c do
begin
p:=p*(-1);
c:=c+1;
end;
y:=p*b;
s:=y+s;
n:=n+1;
i:=i+1;
b:=exp((2*n)*ln(x))/(2*n);
end;
writeln ('s = ',s:2:2);
readln;
end.