когда отрицательные - выдает ошибкуInvalid pointer operation. Почему?

uses crt;
var
  xn,xk,y,dx: real;
begin
  repeat
  clrscr;
  Write ('Vvedite x nachalnoe ');
  readln(xn);
  write('Vvedite x konechnoe ');
  readln (xk);
  write ('Vvedite shag ');
  readln(dx);
  writeln;
  writeln (' _______________');
  Writeln ('|   x   |   y   |');
  writeln (' ---------------');
  while xn<=xk do
    begin
    if (xn>=(-5)) and (xn<=(-3))   then
      begin
        y:=xn+3;
        writeln ('| ',xn:5:1,' | ',y:5:1,' |');
        xn:=xn+dx;
      end
    else
      if (xn>(-3)) and (xn<=0) then
        begin
          y:=sqrt(sqr(xn)-9);
          writeln ('| ',xn:5:1,' | ',y:5:1,' |');
          xn:=xn+dx;
        end
      else
        if (xn>0) and (xn<=6) then
          begin
            y:=(6-xn)/2;
            writeln ('| ',xn:5:1,' | ',y:5:1,' |');
            xn:=xn+dx;
           end
        else
          if (xn>6) and (xn<=9) then
            begin
              y:=xn-6;
              writeln ('| ',xn:5:1,' | ',y:5:1,' |');
              xn:=xn+dx;
            end
  end;
  writeln (' ______________');
  writeln ('Hotite vyiti?');
  until readkey = #27;
  readkey;
end.

if (xn>(-3)) and (xn<=0) then{x=-2,-1}
        begin
          y:=sqrt(sqr(xn)-9);{y=корень из -5,-8}

//Заменить:
//if (xn>(-3)) and (xn<=0) then
//на:
if (Abs(xn)>3) and (xn<0) then