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

Program vitjok;
 USes Crt;
 
VAR
k,n:word;
Xbeg,eps,Xfin,DX,S,X,a:Real;
i:integer;
 
BEGIN
 
    WriteLn('lab 3');
    WriteLn('variant 3');
    WriteLn('is-12-2');
    WriteLn('Kapustin Victir');
    WriteLn;
Write ('Xbeg=');
 Readln(Xbeg);
Write ('Xfin=');
 Readln(Xfin);
write ('DX=');
 Readln(DX);
Write('eps=');
  Readln(eps);
Writeln;
 N:=Round((Xfin-Xbeg)/DX);
 WriteLn('   X        Result      Number of items     Accurate value');
 For i:=0 to N do
  begin
   X:=Xbeg+DX*i;
   k:=0;
   a:=X;
   S:=a;
   Repeat
    Inc(k);
    a:=a*X*X*(2*k-1)/(2*k+1);
    S:=S+a;
   Until Abs(a)<Eps;
   S:=S*2;
   WriteLn(X:6:3,S:12:6,k:12,Ln((1+X)/(1-X)):24:6);
  end;
 Readln;
 
END.

k,n:word;
--------------------
i:integer;

i,k,n:integer;

Program vitjok;
 USes Crt;
 
VAR
k,n:word;
Xbeg,eps,Xfin,DX,S,X,a:Real;
i:integer;
 
BEGIN
 
    WriteLn('lab 3');
    WriteLn('variant 3');
    WriteLn('is-12-2');
    WriteLn('Kapustin Victir');
    WriteLn;
repeat
clrscr;
Write ('Xbeg > -1: ');{введем интервал по условию |x|<1}
Readln(Xbeg);
until Xbeg>-1;
repeat
Write ('Xbeg<Xfin < 1: ');
Readln(Xfin);
until(Xbeg<Xfin)and(Xfin < 1);
repeat
write ('DX<',Xfin-Xbeg:0:1,': ');
Readln(DX);
until(DX<Xfin-Xbeg);
repeat
Write('eps>0 eps=');
Readln(eps);
until eps>0;
Writeln;
 N:=Round((Xfin-Xbeg)/DX);
 WriteLn('   X        Result      Number of items     Accurate value');
 For i:=0 to N do
  begin
   X:=Xbeg+DX*i;
   k:=0;
   a:=X;
   S:=a;
   Repeat
    Inc(k);
    a:=a*X*X*(2*k-1)/(2*k+1);
    S:=S+a;
   Until Abs(a)<Eps;
   S:=S*2;
   WriteLn(X:6:3,S:12:6,k:12,Ln((1+X)/(1-X)):24:6);
  end;
 Readln;
end.