задачка

[Froost]

1) Вводится точность e. Вычислить сумму ряда 1-1/3+1/5-1/7+1/9-....... Вычисления продолжать до тех пор, пока очередное слагаемое не станет меньше e. Вывести рядом и сравнить с полученной суммой

var a,b,c,d,i,f:extended;
begin
f:=StrToFloat(edit1.text);
a:=3;
b:=5;
c:=2;
while 1/a>=f do
while 1/b>=f do
begin
a:=a+c;
b:=b+c;
i:=1-1/a+1/b;
end;
Label2.Caption:=FloatToStr(i);
end;

подскажите где ошибаюсь