Програмирование Паскаль

надо сделать программу для вычисления функции 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.

программа работает но значение не то что должно быть