Доделать шахматную доску - Turbo Pascal

uses dos;
var
 i,i1:integer;
procedure intGraph;
begin
 asm
 mov AH,0
 mov AL,4
 int 10H
 end;
end;
procedure Diagonal(clr:shortint;x:integer);
var
 i,y:integer;
begin
 for i:=x downto 1 do
     begin
      y:=x-i;
      if y>199 then break;
      if i>319 then continue;
      asm
       mov al,clr
       mov cx,i
       mov dx,y
       mov ah,12
       int 10H
      end;
     end;
end;
procedure HorLine(clr:shortint;y,x1,x2:integer);
var
 i: integer;
begin
 for i:=x1 to x2 do
     begin
      asm
       mov al,clr
       mov cx,i
       mov dx,y
       mov ah,12
       int 10H
      end;
     end;
end;
procedure VertLine(clr:shortint;x,y1,y2:integer);
var
 i: integer;
begin
 for i:=y1 to y2 do
     begin
      asm
       mov al,clr
       mov cx,x
       mov dx,i
       mov ah,12
       int 10H
      end;
     end;
end;
 
begin
  intgraph;
 
{  for i:=1 to 319 do
      begin
       VertLine((i div 64)+5,i,1,199);
      end;}
 
  for i:=1 to 39 do
      begin
       HorLine((i mod 3)+1,i,1,63);
       HorLine((i mod 3)+1,i,128,191);
       HorLine((i mod 3)+1,i,256,319);
      end;
    for i:=40 to 79 do
      begin
       HorLine((i mod 3)+1,i,64,127);
       HorLine((i mod 3)+1,i,192,255);
      end;
  for i:=80 to 119 do
      begin
       HorLine((i mod 3)+1,i,1,63);
       HorLine((i mod 3)+1,i,128,191);
       HorLine((i mod 3)+1,i,256,319);
      end;
    for i:=120 to 159 do
      begin
       HorLine((i mod 3)+1,i,64,127);
       HorLine((i mod 3)+1,i,192,255);
      end;
  for i:=160 to 199 do
      begin
       HorLine((i mod 3)+1,i,1,63);
       HorLine((i mod 3)+1,i,128,191);
       HorLine((i mod 3)+1,i,256,319);
      end;
 
{  for i:=1 to 518 do
   Diagonal((i div 100)+1,i);}
  readln;
end.