Ошибка времени выполнения

program grafik;
uses graphABC;
var
  xn, xk, x, mx, my, dx: real;
  x0, y0, i: integer;
  s: string;
 
begin
  x0 := windowwidth div 2;{центр экрана}
  y0 := windowheight div 2;
  xn := -3 * pi / 2;xk := 3 * pi / 2;{интервал по Х}
  mx := (x0 - 30) / (trunc(xk) + 1);{масштаб по Х}
  my := (y0 - 40) / 3;{по У}
  line(0, y0, windowwidth, y0);{оси}
  line(x0, 0, X0, windowheight);
  for i := 0 to 5 do{максимальное количество засечек в одну сторону}
  begin
    str(i, s);
    line(x0 + round(i * mx), y0 - 3, x0 + round(i * mx), Y0 + 3); {засечки на оси Х}
    line(x0 - round(i * mx), y0 - 3, x0 - round(i * mx), Y0 + 3);
    {подпись оси Х}
    textout(x0 + round(i * mx) - 15, y0 + 10, s);
    textout(x0 - round(i * mx), y0 + 10, '-' + s);
    line(x0 + 3, y0 - round(i * my), x0 - 3, y0 - round(i * my)); {засечки на оси Y}
    line(x0 + 3, y0 + round(i * my), x0 - 3, y0 + round(i * my));
    {подпись оси Y}
    textout(x0 - 10, y0 - round(i * my), s);
    textout(x0 - 15, y0 + round(i * my), '-' + s);
  end;
  {центр}
  textout(x0 + 5, y0 + 10, '0');
  {подписи концов осей}
  textout(windowwidth - 10, y0 - 10, 'X');
  textout(x0 - 10, 10, 'Y');
  {график}
  x := xn;
  dx := 0.001;
  while x <= xk do
  begin
    x := x + dx; {наращиваем х}
    setpixel(x0 + round(x * mx), y0 - round(exp(sqrt(x))-x*sqr(sqr(x)) * my), clBlack);
  end;
end.

round(exp(sqrt(x))-x*sqr(sqr(x))