исправить в задаче ощибку при подсчете суммы ряда

[пыхонин филипп]

procedure TForm1.Button1Click(Sender: TObject);
var
eps,a,x,s:real;
i:integer;
begin
a:=1;
i:=0;
x:=strtofloat(edit1.text);
eps:=strtofloat(edit2.text);
repeat
i:=i+1; //счетчик
a:=a*(x-1)/x;//член
s:=s+a/i;//счет суммы
until a<=eps; //условие точности
label1.Caption:=floattostr(s);
label4.Caption:=floattostr(ln(x));
end;


i:=i+1; //счетчик
a:=a*(x-1)/x;//член
s:=s+a/i;//счет суммы
until a<=eps; //условие точности

[Sm1Le]

и в чем ошибка ??? !!! Считает не правильно ?? или Ошибку выдает ?

Пишите вопросы ... НОРМАЛЬНО !