uses
  Windows
var
  s: WideString;
  i: integer;
  Written: Cardinal;
begin
  SetLength(s, 12);
  for i := 0 to 12 do
    s[i] := WideChar(i+9811);
  WriteConsoleW(GetStdHandle(STD_OUTPUT_HANDLE), PWideChar(s), 12, Written,nil);

// print board
procedure print_board(var Board:TBoard);
var
NumCharsWritten: DWORD;
rank_,file_:integer;
fig_str:String;
begin
Writeln('');
  // loop over board ranks
  //rank - ряд, горизонталь, а file — столбец, вертикаль
  for file_ := 7 downto 0 do  begin
        // loop over board files
        for rank_ := 0 to 7 do  begin
           // print ranks
           if rank_ = 0 then begin
                Write(1 + file_);
                Write(' ');
           end;
           Write(' ');
    //Write(board[rank_][file_] );
    //King=6;Queen=5;Rook=4;Bishop=3;Knight=2;Pawn=1;  // BK=-6 BQ=-5 BR=-4 BB=-3 BN=-2 BP=-1
         case Board.Squares[Decoder[8*file_+rank_]] of
           1:fig_str:='♙';
           2:fig_str:='♘';
           3:fig_str:='♗';
           4:fig_str:='♖';
           5:fig_str:='♕';
           6:fig_str:='♔';
           -1:fig_str:='♟';
           -2:fig_str:='♞';
           -3:fig_str:='♝';
           -4:fig_str:='♜';
           -5:fig_str:='♛';
           -6:fig_str:='♚';
            0:fig_str:='.';
         end;
      //Write(fig_str);
       WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE), PChar(fig_str), Length(fig_str), NumCharsWritten, nil);
        end;
        // print new line every rank
        Writeln('');
  end;
  // print new line
  Writeln('');
  // print board files
  Writeln('   a b c d e f g h');
  Writeln('');
end;