Рисование шахматной доски

uses GraphABC;
 
const size=60; //В дальнейшем используется для размеров клетки
 
var k,h,j:integer; //Побочные переменные
///Рисует квадрат на координате {dx;dy} размером s*s пикселей и заполняет цветом 'c'
procedure square(dx,dy:integer;s:integer:=size;c:color:=color.Black); begin
rectangle(dx,dy,dx+s,dy+s); //Рисует непосредственно квадрат
floodfill(dx+1,dy+1,c); //Заполняет квадрат цветом
end;
 
begin
window.Caption:='ШАХМАТЫ'; //Заголовок окна
window.Height:=size*8; //Размер окна во вертикали
window.Width:=size*8; //Размер окна по горизонтали
window.IsFixedSize:=true; //Запрещает изменять размер окна
for var i:=1 to 8 do begin //Цикл рисования строк
square(k+j,h); k+=size; //Рисует квадрат
square(k+j,h,size,color.White); k+=size; //Рисует белый квадрат
square(k+j,h); k+=size;
square(k+j,h,size,color.White); k+=size;
square(k+j,h); k+=size;
square(k+j,h,size,color.White); k+=size;
square(k+j,h); k:=0;
h+=size; //Увеличивает y координату для рисования
if j=size then //Определяет будет первый квадрат белый либо черный
j:=0
else
j:=size;
end;
line(size*8,0,size*8,size*8); //Рисует полосу справа. Не особо важно если правильно подогнать окно
line(0,size*8,size*8,size*8); //Рисует полосу снизу
end.

uses GraphABC;
 
const size=60; //В дальнейшем используется для размеров клетки
 
///Рисует квадрат на координате {dx;dy} размером s*s пикселей и заполняет цветом 'c'
procedure square(dx,dy:integer;s:integer:=size;c:color:=color.Black); begin
rectangle(dx,dy,dx+s,dy+s); //Рисует непосредственно квадрат
floodfill(dx+1,dy+1,c); //Заполняет квадрат цветом
end;
 
begin
window.Caption:='ШАХМАТЫ'; //Заголовок окна
window.Height:=size*8; //Размер окна во вертикали
window.Width:=size*8; //Размер окна по горизонтали
window.IsFixedSize:=true; //Запрещает изменять размер окна
 
square(0,0);square(size*2,0);square(size*4,0);square(size*6,0); //Строка 1
square(size,size);square(size*3,size);square(size*5,size);square(size*7,size); //Строка 2
 
square(0,size*2);square(size*2,size*2);square(size*4,size*2);square(size*6,size*2); //Строка 3
square(size,size*3);square(size*3,size*3);square(size*5,size*3);square(size*7,size*3); //Строка 4
 
square(0,size*4);square(size*2,size*4);square(size*4,size*4);square(size*6,size*4); //Строка 5
square(size,size*5);square(size*3,size*5);square(size*5,size*5);square(size*7,size*5); //Строка 6
 
square(0,size*6);square(size*2,size*6);square(size*4,size*6);square(size*6,size*6); //Строка 7
square(size,size*7);square(size*3,size*7);square(size*5,size*7);square(size*7,size*7); //Строка 8
end.

uses graphabc;
var i,j: byte;
 
begin
setwindowsize(400,400);
for i:=1 to 8 do
  for j:=1 to 8 do
    if (odd(i) and odd(j)) 
    or ((not (odd(i))) and (not (odd(j)))) then
      begin
      setbrushcolor(clblack);
      rectangle(i*50-50,j*50-50,i*50,j*50);
      end;
end.