Найти ошибку. Определение с заданной точностью суммы членов бесконечного числового ряда

program qw;
var
epsilon, x,amount,difference:real;
N:integer;
begin
N:=1;
write('Enter epsilon');
readln(epsilon);
if(epsilon<=0)
then begin write('Error');
exit;
end
else
write('Enter x');
readln(x);
amount:=0;
difference:=amount-sin(x);
while(abs(difference)>=epsilon) do
begin
amount:=amount+Power(-1,N-1)*Power(x,2*N-1)/(2*N-1)*1;
 N:=N+1;
end;
Writeln('Количество просуммированных элементов-',N);
Writeln('Сумма элементов-',amount);
Writeln('Разность суммы и точного значения-',difference);
Readln;
end.

var epsilon, x,amount,difference:real;
    n:integer;
begin
repeat
write('Enter epsilon>0 epsilon=');
readln(epsilon);
until epsilon>0;
write('Enter x=');
readln(x);
n:=1;
difference:=x;
amount:=difference;
while abs(difference)>=epsilon do
 begin
  n:=n+1;
  difference:=-difference*x*x/(2*n-2)/(2*n-1);//на картинке опечатка, должно быть не 1, а факториал
  amount:=amount+difference;
 end;
Writeln('Количество просуммированных элементов=',n);
Writeln('Сумма элементов=',amount:0:4);
//Writeln('Разность суммы и точного значения-',difference);//для точного значения нет данных
Readln;
end.