Итерационный цикл: вычислить сумму ряда

var k,ed:integer;
    eps,x,sum,gv:real;
begin
  Writeln ('Введите, пожалуйста eps: ');
  read (eps);
  Writeln ('Хорошо..введите, пожалуйста х: ');
  read (x);
  sum:=0;
  k:=1;
  ed:=1;
  gv:=1;
  while sum > eps do
    begin
      ed:=ed*(-1);
      gv:=gv*x;
      sum:=sum+(ed*gv)/k;
      k:=k+1;
    end;
    writeln ('Сумма, ограниченная по ', eps, ' равна: ', sum:2:2);
end.

var k,x,v,eps,s,u:real;
begin  cls;
  writeln ('Введите эпсилон(>0): ');
  read (eps);
  writeln ('Введите х (х<>0): ');
  read (x);
  s:=0;
  u:=-x;
  v:=-x*k/(k+1);
  k:=1;
  while abs(u)>eps do
    begin
      s:=s+u;
      u:=v*u;
      k:=k+1;
      writeln ('сумма: ',S:10:6);
    end;
  writeln ('Наша сумма: ',S:10:6);
end.