не могу найти ошибку (pascal)

[spinogryz_ua]

uses crt;
Var x,sv,y,sz:real;
i,j,f,r:integer;
begin
 writeln('Лабораторна робота №3');
   writeln('виконав студент 1 курсу групи ПЗ-114 Пухлий Аркадій');
   writeln('початкові дані') ;
   writeln('ввести x');
read(x);
writeln('Внутрішня сума','    Зовнішня сума');
sz:=0; f:=120;
for j:=4 to 11 do
begin
sv:=0; 
 i:=1; r:=1;
while i<=12 do
begin
y:=r*(exp((i+1)*ln(x))*ln(i+x))/(f+exp(i+x));
sv:=sv+y;
i:=i+1; r:=-r;
end;
f:=f*(j+1); sz:=sz+sv;
writeln (sv:10:4,sz:17:4);
end;
writeln('Остаточна зовнішня сума = ',sz:10:7);
end.

вычислить нужно двойную суму. Результат неправильный выдает... Я не знаю что тут еще нужно...

Заранее спасибо за помощь!!!