Изобразить шахматную доску

USes crt;
var i:integer;
a:char;
Begin
write('  ');
for a:='A'to 'H' do write(a,' ');
writeln;
for i:=1 to 8 do writeln(i);
end.

uses graphABC;
procedure Kletka(x1,y1,c:integer;d:integer);
begin
Setpencolor(c);
Setbrushcolor(c);
rectangle(x1,y1,x1+d,y1+d);
end;
var x,y,x2,y2,d,i,j:integer;
begin
setwindowsize(450,450);
centerwindow;
d:=windowheight div 9;{размер клеток}
Setpencolor(clLtGray); {поле доски}
Setbrushcolor(clLtGray);
Rectangle(0,0,windowwidth,windowheight);
x:=d div 2;{левый край игрового поля}
y:=d div 2;{верхний край игрового поля}
for i:=1 to 8 do
 begin
  for j:=1 to 8 do
  if odd(i+j) then Kletka(x+d*(i-1),y+d*(j-1),clBrown,d)
  else Kletka(x+d*(i-1),y+d*(j-1),clWhite,d);
 end;
setfontsize(12);
setfontstyle(fsBold);
setbrushstyle(bsClear);
for i:=0 to 7 do{подписи вертикалей a..h}
textout(x+d*i+d div 2,windowheight-20,chr(ord(i+97)));
for i:=7 downto 0 do{подписи горизонталей 1..8}
textout(5,windowheight-d*(i+1),chr(ord(i+49)));
end.

Program Domik_v_derevne;
Uses crt, graphABC;
Var x,y,j:integer;
ys:string;
i:char;
Begin
SetWindowWidth(500);
SetWindowHeight(500);
x:=50;
y:=50;
for i:='A' to 'H' do
begin
j:=j+1;
ys:=IntToStr(j);
TextOut(x+20,5,i);
TextOut(5,y+20,ys);
line(x,20,x,450);
line(0,y,450,y);
SetPixel(x,y,Clgreen);
x:=x+50;
y:=y+50;
setpencolor(Clgreen);
setPenStyle(psDot);
end;
line(x,20,x,450);
line(0,y,450,y);
End.