Построение шахматного поля с расставлением шашек в начальной позиции - Pascal ABC

uses graphabc;
Var i,j,c:integer;
begin
setwindowsize (500,500);
rectangle(49,49,451,451);
for i:=1 to 8 do
for j:=1 to 8 do
 begin
  if (i+j) mod 2=0 then
  c:=clwhite else c:=clblack;
  setpencolor(c);
  setbrushcolor(c);
  rectangle(i*50,j*50,(i*50)+50,(j*50)+50);
  if (j<=3) and ((i+j) mod 2=1) then
   begin
    setpencolor(clyellow);
    setbrushcolor(clyellow);
    circle((i*50)+25,(j*50)+25,20);
  end;
  if (j>=6) and ((i+j) mod 2=1) then
   begin
    setpencolor(clbrown);
    setbrushcolor(clbrown);
    circle((i*50)+25,(j*50)+25,20);
   end;
  setfontsize(14);
  setbrushstyle(bsclear);
  textout(30,(i*50)+10,inttostr(9-i));
  textout((i*50)+20,460,chr(i+96));
 end;
end.