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

Question

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

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

Татьяна Давыдова · Accepted Answer

тебе же выдало какую-то ошибку? Какую? Пробуй обьявить k:real