Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора

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