Написать программу вычисления значений функции

uses crt;
const e=0.001;
function f(x:real;var n:integer):real;
var t,s:real;
begin
n:=1;
t:=x-1;
s:=t;
while abs(s/n)>e do
 begin
  n:=n+1;
  t:=-t*(x-1);
  s:=s+t/n;
 end;
f:=s;
end;
var xn,xk,dx,x,y:real;
    n:integer;
begin
repeat
 writeln('Введите интервал 0<xn<xk<=2');
 readln(xn,xk);
until(xn>0)and(xk>xn)and(xk<=2);
repeat
write('Введите шаг dx<',xk-xn:0:2,' dx=');
readln(dx);
until dx<xk-xn;
clrscr;
writeln('            Таблица значений функции ln(x)');
writeln('представленной разложением в ряд на интервале [',xn:0:2,',',xk:0:2,']');
writeln('        с шагом ',dx:0:2,' с точностью 0.001');
writeln('---------------------');
writeln('  x  |  f(x)  |  n  |');
writeln('---------------------');
x:=xn;
while x<xk+dx/2 do
 begin
  y:=f(x,n);
  writeln('|',x:5:2,'|',y:7:3,'|',n:4,'|');
  x:=x+dx;
 end;
writeln('---------------------');
writeln('Проверка последнего значения ln(',x-dx:0:2,')=',ln(x-dx):0:3);
 
end.