Паскаль Ряд Тейлора

[jurok3x]

надо сделать программу для вычисления функции SQRT(1-x) |x|<=1 с помощью ряда Тейлора с точностью 7 знаков после комы!!!
Программа вродь как работает но значение "у" неверное выдает.
где-то тут в алгоритме ошибка должна быть но не могу найти.

program l;
function F(k:integer):real;
begin
F:=-(2*k-1)/(2*k+2);
end;
var x,y,z:real; i:integer;
begin
readln(x);
z:=-0.5*x;
i:=1;
y:=1;
while z<0.00000001 do begin
y:=y+z;
z:=z*x*F(i);
i:=i+1;

end;
writeln('y=',y);
end.

[Mad_Cat]

где-то тут в алгоритме ошибка

ошибка в этой функе

function F(k:integer):real;

приложили бы формулу, сказал бы точнее

[jurok3x]

Функция sqrt(1-x)
1-x/2-x^2/8-x^3/16-5*x^4/128-7*x^5/256+...

С проблемой разобрался сам, причина некорректно задана функция в задаче( должны стоять везде минусы, а в условии было поочередно минус-плюс).
Спасибо за помощь.