Задача. (Pascal)

[spinogryz_ua]

нужно обчислить суму безконечного ряда с заданой точностью.
нужно 2 програмы с цыклом while и repead-until.

x = 0.27
точность = 10 в -5 степени
формула:

в универе решал подобное:
while

var r,x,eps,s,y : real;
    f,i : integer;
  begin
  writeln('Початкові дані');
  writeln('ввдедіть x, eps');
  read(x, eps);
  writeln('  №   Значення  Поточна сума');
  s:=0; y:=1; i:=1; f:=1; r:=1;
  while abs(y)>eps do begin
  y:=r*(sqrt(i+pi)*sin(i*x))/f(x+1))+exp(i*x) 
s:=s+y;
  writeln(i:3,y:10:5,s:13:6);
  i:=i+1; f:=f*i; r:=-r;
  end;
  writeln('Остаточна сума = ',s:9:7);
  end.

repeat-until

var r,x,eps,s,y : real;
    f,i : integer;
  begin
  writeln('початкоаві дані');
  writeln('введіть x, eps');
  read(x, eps);
  writeln('  №   Значення  Поточна сума');
  s:=0; y:=1; i:=1; f:=1; r:=1;
  repeat
  y:=r*((i+exp(i*ln(x)))/(exp((i+1)*ln(x))+f));
  s:=s+y;
  writeln(i:3,y:10:5,s:13:6);
  i:=i+1; f:=f*i; r:=-r;
  until abs(y)<=eps;
  writeln('Остаточна сума = ',s:9:7);
   end.

А домой пришел свой вариант никак не хочет получатся.

Заренее спасибо!

[spinogryz_ua]

Спасибо вам огромное... =/