Плиз!Помогите составить программу на для вычисления таблицы значений функции(Pascal)

[MrsAsuna]

Помогите составить программу на Pascal для вычисления таблицы значений функции y = (x + 1) / (sqrt (4-x * x)), если х изменяется от a до b с шагом h(Границы интервала a и b и шаг h вводит пользователь).
Внимание! В программе надо учитывать область определения функции - то есть те значения х, при которых функция не имеет значения. Для этого в цикле используйте оператор IF ... THEN ... ELSE и выводите на экран соответствующее сообщение.

[wordman]

program f_x; {  составление таблицы для функции: y = (x + 1) / (sqrt (4-x * x))}
var a, b, h, x: real;
begin
  write('Введите начало диапазона a=');
  readln(a);
  write('Введите конец диапазона b=');
  readln(b);
  write('Введите шаг h=');
  readln(h);
  x:=a;
  writeln('Таблица значений функции y = (x + 1) / (sqrt (4-x * x)):');
  while (x<=b) do begin
    write('x=',x);
    write(' y=');
    if ((x<=-2.0) or (x>=2.0)) 
      then writeln(' функция не определена') 
      else writeln((x+1)/sqrt(4-x*x));
    x:=x+h;
  end;
 end.

ps: исправленный вариант. вначале перепутал, квадрат с корнем