Вычислить с заданной точностью и шагом значения функции на заданном интервале

uses crt;
const t=0.00001; {точность попадания в интервал}
var xn,xk,dx,e,x,s,si,p:real;
    n:integer;
begin
clrscr;
repeat
write('Введите начало интервала xn<0.5 xn=');
readln(xn);
until xn>0.5;
repeat
write('Введите конец интервала  xk > ',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции dx<(xk-xn) dx=');
readln(dx);
until dx<xk-xn;
repeat
write('Введите точность 0<e<0.01  e=');{точнсть типа 0,001-0,000001}
readln(e);
until(e>0)and(e<0.01);
writeln('-------------------------------------');
writeln('|  x  | Вычислено | Точное значение |');
writeln('-------------------------------------');
x:=xn;
while x<=xk+t do{внешний цикл}
 begin
  s:=0;
  n:=0;
  p:=(x-1)/x;
  si:=p;
  while abs(s-si)>=e do{внутренний цикл}
   begin
    s:=si;
    n:=n+1;
    p:=p*(x-1)/x;
    si:=si+p/(n+1);
   end;
  writeln('|',x:5:2,'| ',s:9:6,' |',ln(x):14:6,'   |');
  x:=x+dx;
 end;
writeln('-------------------------------------');
readln
end.