Вычислить сумму ряда с точностью e

[GULNARA666]

Я в общем сделала, только ответы левой и правой части не сходятся...а в чем ошибка не знаю(((((


Для заданного положительного (епселант) е=10^(-6) , описывается как кон-станта, и заданного x, вводится с клавиатуры, вычислить сумму ряда с точностью e . Значение параметра m, входящего в некоторые варианты, вводится с клавиатуры. Значение полученной суммы сравнить с соответст-вующим значением в левой части равенства. Так же на печать выдать ко-личество суммируемых членов ряда. Предусмотреть ограничение количества слагаемых ряда для предотвращения «зацикливания». Прило-жением должен быть также предусмотрен ввод чисел только из указанного диапазона.

(1-x)^m=1-mx+(m(m-1)/2!)x^2-(m(m-1)(m-2)/3!)x^3+..., |x|<1,m>0

program gulinara;
{$APPTYPE CONSOLE}
uses
SysUtils,math;
var p,f,s,i,s1,l,m:extended; x:real; h,j:integer;
function fact(n : integer) : longint;
begin
if n <= 1 then fact := 1 else fact := n * fact(n - 1) end;
begin
writeln('BBEDUTE x:'); readln(x);
repeat
readln(x); writeln('OLIIU6KA'); until (abs(x)<1);
writeln('BBEDUTE m:'); readln(m);
s:=0; p:=1; j:=1; l:=m; f:=1; h:=1;
repeat
P:=p*x;
s:=(j*l*p)/f+s;
s1:=s;
l:=(m-h)*l;
h:=h+1;
f:=fact(h);
until abs(s-s1)<1e-6 ; s:=1+s;
writeln('IIOJIY4UJIU:=',S:5:5);
writeln(power(1-x,m):5:5);
writeln; readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.