Составить программу с процедурой, которая обеспечит вывод на экран шахматного поля с квадратами 5 на 5 — Pascal(Паскаль)

uses crt;
procedure Chr(x,y:byte);{темные поля}
var i,j:byte;
begin
textcolor(8);
for i:=1 to 5 do
for j:=1 to 5 do
 begin
  gotoXY(x+j-1,y+i-1);
  write(#219);
 end;
end;
procedure Bel(x,y:byte);{светлые поля}
var i,j:byte;
begin
textcolor(14);
for i:=1 to 5 do
for j:=1 to 5 do
 begin
  gotoXY(x+j-1,y+i-1);
  write(#219);
 end;
end;
 
var n,m,i,j:byte;
begin
clrscr;
repeat
write('Количество пар квадратов по вертикали от 1 до 2 n=');
readln(n);
until n in [1..2];
repeat
write('Количество пар квадратов по горизонтали от 1 до 8 m=');
readln(m);
until m in [1..8];
textbackground(3);
clrscr;
for i:=1 to n*2 do
for j:=1 to m*2 do
if (i+j)mod 2=0 then Bel((j-1)*5+1,(i-1)*5+1)
else Chr((j-1)*5+1,(i-1)*5+1);
readln;
textbackground(0);
textcolor(15);
clrscr;
end.