найти сумму членов ряда с точностью ε для заданного х и их количество (Паскаль)

[gylayko]

значит так, делаю задачу найти сумму членов ряда с точностью ε для заданного х и их количество. вот текст

uses crt;
var y,h,x:real;
begin
clrscr;
h:=0.4;
x:=(-10);
WriteLn('╔═════╗╔══════╗');
WriteLn('║ x=  ║║ y=   ║');
WriteLn('╚═════╝╚══════╝');
WriteLn('╔═════╗╔══════╗');
While (x<=-6) do
begin
if (x+9<=0) then
WriteLn('║',x:1:1,' ║║ y=-  ║') else
y:=(sqrt(x+9))/x-1/(x+6);
WriteLn('║',x:1:1,' ║║',y:5:1,' ║' );
x:=x+h;
end;
WriteLn('╚═════╝╚══════╝');
ReadLn;
end.

но дело в том, что выходит некоректный результат! вот фото http://fotki.yandex.ru/users/zvezda5...312677/?page=0
1) почему верхний ряд здвинут?
2) я задал, что если x+9<0, то игрика нету, так как корня тогда нету просто! но дело в том, что в результате выдает и то, что игрика нету и то что он равен нулю! что с этим сделать?
3)почему когда х=-6 выдает какое-то бредовое число, там получается деление на ноль, так как -6+6=0, как это можно изменить?

_______________
неужели тяжело выполнять правила форума и раздела?!!

1) название темы давайте ОСМЫСЛЕННОЕ! Оно должно отражать суть решаемой задачи/проблемы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

ЗЛОЙ МОДЕРАТОР.