Составьте алгоритм действий для создания данного изображения

Вроде бы так, но когда программа выполняется, то из-за такого большого кол-ва клеток (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.

Var   m: array [1 .. 4, 1 .. 4] of integer;   i, j, k, sum: integer;   count: byte; begin   for i : = 1 to 4 do   begin       for j : = 1 to 4 do       begin           m[i, j] : = random(16);           write(m[i, j]: 4);       end;       writeln;   end;   for i : = 1 to 4 do   begin       sum : = 0;       for j : = 1 to 4 do           sum : = sum + m[j, i];       for j : = 1 to 4 do           if (m[j, i] > sum - m[j, i]) then               inc(count);   end;   writeln('количество особых элементов = ', count); end.