Ошибка при вычислении в условии, ругается при рисовании

uses graphABC;
const
Width:integer=800;
Height:integer=1000;
cameraz:double=2.0;  //расстояние до наблюдателя
n:integer=60;        //количество точек
limit:double=4;      //пределы расчёта
var
  u:integer;
procedure MouseDown(x,y,mb:integer);
var
  i, j, size:integer;
  z, k:double;
begin
    Window.Clear;
    clearwindow(clYellow);
    for i:=-n to n do //начало цикла для проекции
     begin
      for j:=-n to n do 
        begin
          if ((limit * j/n)*(limit * j / n)-(limit * i / n)*(limit * i / n)  > 2) then 
          begin
            z:= (((limit * j/n)*(limit * j / n)-(limit * i / n)*(limit * i / n)) /(limit * j / n));
            k:= cameraZ / (cameraZ + z);
            size:= 4;
            if (z < 0.2) then size:= 5
            else if (z < 0.6) then size:= 4
            else if (z < 2) then size:= 3;
            x:= round(400 + i * 500 * k / n); // координаты
            y:= round(400 + j * 500 * k / n); //           точек на экране
            Rectangle(x, y, x + size, y + size);
          end;
        end;
     end;
end;
 
begin
  SetWindowSize(Width,Height);
  clearwindow(clYellow);
  setbrushcolor(clred);
  OnMouseDown:=MouseDown;
 
end.

           x:= round(400 + i * 500 * k / n); // координаты