как нарисовать в паскале лист в клетку 1000 на 1000

Вроде бы так, но когда программа выполняется, то из-за такого большого кол-ва клеток (1000х1000) все отображается как один черный квадрат ))) если сделать кол-во поменьше (например 100х100), то клетки будут видны (скрин).uses graphABC;var  w, h, i: integer;begin  setwindowsize(1010, 1010);  w := windowwidth div 1000;  h := windowheight div 1000;  for i := 1 to 1000 do  begin    line(i * w, 0, i * w, windowheight);    line(0, i * h, windowwidth, i * h);  end;end.