Вычислить сумму ряда

Program zadachka;
var x,y,sv,sz,fact: real;
    i,j,zn: integer;
begin
writeln('vvedite x=');
read(x);
sz:=0;
for j:=3 to 15 do begin
  i:=1; zn:=1; fact:=6; sv:=0;
  while i<=7 do begin
  y:=zn*(j+power(x,i))/(power(x,i+1)+fact);
  sv:=sv+y;
  i:=i+1;
  zn:=-zn;
  fact:=fact*j
  end;
  sz:=sz+sv;
  writeln('çíà÷åííÿ çîâí³øíüîãî ïàðàìåòðó=',j:3,' âíóòð³øíÿ ñóìà=',sv:10:4,' çîâí³øíÿ ñóìà=',sz:12:6);
  end;
  writeln('çîâí³øíÿ ñóìà =',sz:12:6);
  end.

Program zadachka;
var x,y,sv,sz,fact: real;
    i,j,zn: integer;
begin
writeln('vvedite x=');
read(x);
sz:=0;
j:=3;
repeat
zn:=1; fact:=6; sv:=0;
for i:=1 to 7 do begin
y:=zn*(j+power(x,i))/(power(x,i+1)+fact);
sv:=sv+y;
zn:=-zn; fact:=fact*j;
end;
sz:=sz+sv;
writeln('çíà÷åííÿ çîâí³øíüîãî ïàðàìåòðó=',j:3,' âíóòð³øíÿ ñóìà=',sv:10:4,' çîâí³øíÿ ñóìà=',sz:12:6);
 j:=j+1;
 until j>15;
 writeln('çîâí³øíÿ ñóìà =',sz:12:6);
  end.