Помогите пожалуйста нарисовать шахматную доску!

uses crt;
var k,l,m,n:byte;
begin
clrscr;
repeat
writeln('Поле слона:');
write('k=');readln(k);
write('l=');readln(l);
until (k in [1..8])and(l in [1..8]);
repeat
writeln('Поле для хода:');
write('m=');readln(m);
write('n=');readln(n);
{на доске и на разных полях одного цвета}
until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n))and((k+l+m+n) mod 2=0);
if abs(k-m)=abs(l-n) then write('Можно попасть за 1 ход')
else write('Нельзя попасть за 1 ход');
readln
end.

uses crt;
var k,l,m,n:byte;
begin
clrscr;
repeat
writeln('Поле слона:');
write('k=');readln(k);
write('l=');readln(l);
until (k in [1..8])and(l in [1..8]);
repeat
writeln('Поле для хода:');
write('m=');readln(m);
write('n=');readln(n);
{на доске и на разных полях одного цвета}
until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n))and((k+l+m+n) mod 2=0);
if abs(k-m)=abs(l-n) then write('Можно попасть за 1 ход')
else write('Нельзя попасть за 1 ход');
readln
end.

uses crt;
var k,l,m,n:byte;
begin
clrscr;
repeat
writeln('Поле слона:');
write('k=');readln(k);
write('l=');readln(l);
until (k in [1..8])and(l in [1..8]);
repeat
writeln('Поле для хода:');
write('m=');readln(m);
write('n=');readln(n);
{на доске и на разных полях одного цвета}
until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n))and((k+l+m+n) mod 2=0);
if abs(k-m)=abs(l-n) then write('Можно попасть за 1 ход')
else write('Нельзя попасть за 1 ход');
readln
end.

uses crt;
var k,l,m,n:byte;
begin
clrscr;
repeat
writeln('Поле слона:');
write('k=');readln(k);
write('l=');readln(l);
until (k in [1..8])and(l in [1..8]);
repeat
writeln('Поле для хода:');
write('m=');readln(m);
write('n=');readln(n);
{на доске и на разных полях одного цвета}
until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n))and((k+l+m+n) mod 2=0);
if abs(k-m)=abs(l-n) then write('Можно попасть за 1 ход')
else write('Нельзя попасть за 1 ход');
readln
end.

С тебя 100р. на киви кошелёк... 89635044222

Если не секрет - как ты у "скелета образца 2011" года сможешь хоть что-то вытянуть?