Вычислить сумму ряда: s=(x-1)-((x-1)^2)/2+((x-3)^3)/3-…+((-1)^(n+1))*((x-1)^n)/n — Pascal(Паскаль)

program var3_3;
uses crt;
var Eps,a,a1,t,x:real;
i:integer;
begin
Writeln('введите x');
read(x);
repeat
writeln('Введите eps');
read(Eps);
until Eps>0;
if x=1 then a:=0
else if abs(x-1)<=eps then a:=x-1
else
 begin
  a:=0;//начальная сумма
  t:=-1; //начальное значение (x-1)^n
  i:=0; //начальное значение N
  repeat
   a1:=a;//запомним
   i:=i+1;//вперед
   t:=-t*(x-1);//считаем  (x-1)^n
   a:=a+t/i; //делим на N
  until abs(a-a1)<=Eps; //конец
 end;
Writeln('сумма равна ',a:0:4);
end.