Pascal/Turbo Pascal - Ayuda con tablero de damas

uses crt;

var

   i, j, k :   integer;

         c :   char;

begin

   c := #219;

   write(' ---------------- ');

   for i := 1 to 8 do begin

   writeln;

      if (i mod 2 <> 0) then

         for j := 1 to 4 do begin

            if (j = 1) then write('|');

            write(c, c, '  ');

            if (j = 4) then write('|');

         end

      else begin

         for k := 1 to 4 do begin

            if (k = 1) then write('|');

            write('  ', c, c);

            if (k = 4) then write('|');

         end;

      end;

   end;

   writeln;

   write(' ---------------- ');

   readkey;

end.