задача по аналогии

[Ania Lunee]

Вот нашла похожую программу на сумму( файл прикреплен ниже №1)
своя же очень очень похожая, но когда исправляю, видать что то лишнее делаю, помогите исправить,( моя задача №2)

uses crt;
var xn,xk,h,x,t,e,s:real;
    i:integer;
begin
clrscr;
repeat
write('Введите начало интервала |x|<1 xn=');
readln(xn);
until abs(xn)<1;
repeat
write('Введите конец интервала x>',xn:0:1,' x<1 xk=');
readln(xk);
until (xk>xn)and(xn<1);
repeat
write('Введите шаг табуляции h >0 и <',xk-xn:0:1,' h=');
readln(h);
until (h>0)and(h<xk-xn);
repeat
write('Введите точность (0;1) e=');readln(e);{точность типа 0,0001}
until (e>0)and(e<1);
writeln('Табулирование функции y=Arth(x) для |x|<1');
writeln('на интервале [',xn:0:1,';',xk:0:1,'] с шагом ',h:0:1);
writeln('-------------------------------');
writeln('|  x  |    S    |    Ln   | N |');
writeln('-------------------------------');
x:=xn;
while x<=xk+h/2 do
 begin
  s:=x;
  t:=x;
  i:=0;{нулевое значение}
  while abs(t)>e do
   begin
    i:=i+1;
    t:=t*x*x;
    s:=s+t/(2*i+1);
   end;
  writeln('|',x:4:1,' |',s:8:4,' |',0.5*ln((1+x)/(1-x)):8:4,' |',i+1:3,'|');
  x:=x+h;
 end;
writeln('---------------------------------');
readln
end.

[Stilet]

 while abs(t-t2)>e do begin
   t2:=t;
   k:=2*i+1;
   t:=1/(exp(k*ln(x))*k);
   s:=s+t;
   inc(i);
   writeln('|',x:4:1,' |',s:8:4,' |',t:8:4,' |',i+1:3,'|');
  x:=x+h;
 end;

Добавь еще переменку K:integer;и t2:real;

[Ania Lunee]

Сообщение от Stilet

 while abs(t-t2)>e do begin
   t2:=t;
   k:=2*i+1;
   t:=1/(exp(k*ln(x))*k);
   s:=s+t;
   inc(i);
   writeln('|',x:4:1,' |',s:8:4,' |',t:8:4,' |',i+1:3,'|');
  x:=x+h;
 end;

Добавь еще переменку K:integer;и t2:real;

спасибо огромное)
но теперь не могу разобраться с другим- пишет floating point overflow