Написать программу, которая выводит на экран изображение шахматной доски — 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)/8);{размер клеток}
{обрамление доски}
Setcolor(4);
Rectangle(1,1,8*d1+50,8*d1+60);
Setfillstyle(1,4);
Bar(1,1,8*d1+50,8*d1+60);
{клетки}
x1:=30;y1:=20;
for i:=0 to 7 do
  begin
    for j:=0 to 7 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 7 do
outtextxy(30+d1*i+d1 div 2,460,chr(ord(i+97)));
for i:=7 downto 0 do
outtextxy(20,440-d1*i-d1 div 2,chr(ord(i+49)));
readln;
closegraph
end.