Вывод шахматного поля

Procedure Pole (m,n:integer);
Var i,j,k,fl:integer;  {fl - флаг начала черного или белого квадрата}
    s1,s2:string [5];
Begin
    s1:='*****';
    s2:=' ';
    fl:=1;
    for i:=1 to n do  {цикл на пару клеток по вертикали}
     begin
      for j:=1 to 5 do {цикл на образование клеток}
       begin
        for k:=1 to m do {цикл на пару клеток по горизонтали}
         if fl>0 then write (s1,s2)
         else write (s2,s1);
         writeln;
       end;
      fl:=fl*(-1);
     end;
end;

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.