Табулирование функции

[kvkvk]

Протабулировать функцию 10/(1-sqr(x)) на отрезке от -2,5 до 2,5 шаг 0,5

Program tabul;
var i, n: integer; a, b, h, xi, yi:real;
function y(x:real):real;
begin
y:=10/(1-sqr(x));
end;
Begin
writeln('vvedi a, b, h'); readln(a, b, h);
writeln ('__________________________');
writeln ('*   i  *  xi *   yi     *');
writeln ('*______*_____*__________*');
n:= trunc ((b-a)/h);
for i:=0 to n do
begin
xi:=a+i*h;
if xi=-1  then writeln ('*   ',i:3,'*',xi:5:2,'*   Pa3Pb|B*')
else
begin
yi:=y(xi);
writeln('*   ',i:3,'*',xi:5:2, '*', yi:10:6, '*')
end;
end;
if trunc ((b-a)/h)<>((b-a)/h) then
begin
xi:=b;
yi:=y(xi);
writeln('*', (n+1):3, '*', xi:5:2,'*', yi:10:6, '*');
end;
writeln ('*______*_____*__________*');
readln;
end.

Помогите исключить значение функции в точке 1.
Что то я туплю как?)