Нарисовать шахматную доску 6*6 на весь экран - Turbo Pascal

uses crt,graph;
procedure Kletka(x1,y1,c:integer;d:integer);{рисуем клетки}
begin
Setcolor(c);{цвет}
rectangle(x1,y1,x1+d,y1+d);{граница}
Setfillstyle(1,c);{стиль заполнения}
Bar(x1,y1,x1+d,y1+d);{заполняем}
end;
var gd,gm,x1,y1,x2,y2,d1,i,j:integer;
begin
initgraph(gd,gm,'');{переход в граф. режим, тут еще проверку надо}
d1:=round((getmaxY-60)/6);{размер клеток}
Setcolor(4);
Rectangle(1,1,6*d1+50,6*d1+60);
Setfillstyle(1,4);
Bar(1,1,6*d1+50,6*d1+60);{рамка доски}
x1:=30;y1:=20;{левый верхний угол клетки а6}
for i:=0 to 5 do
  begin
    for j:=0 to 5 do
    if odd(i+j) then Kletka(x1+d1*i,y1+d1*j,15,d1){если сумма индексов нечетная, цвет белый}
    else Kletka(x1+d1*i,y1+d1*j,6,d1);{если четная, коричневый}
  end;
Setcolor(0);
for i:=0 to 5 do
outtextxy(30+d1*i+d1 div 2,460,chr(ord(i+97)));{выводим написи по горизонтали(буквы)}
for i:=5 downto 0 do
outtextxy(20,440-d1*i-d1 div 2,chr(ord(i+49)));{по вертикали-цифры}
readln;
closegraph
end.