Hаписать программу табуляции функции у=1/х на отрезке [-2,2] с шагом 1 на языке паскаль.предусмотреть проверку принадлежности аргумента области определения функции.

Вот программа:
var x,h:real;
begin
h:=1;
x:=-2;
writeln(' x     y');
while x<=2 do
 begin
 write(x:3);
 if x<>0 then writeln(1/x:7:2) else writeln('  функция не определена');
 x:=x+h;
 end;
end.