program arrayproj3;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

{$R *.res}
procedure name;
var
  myname : array[1..10] of char;
  i : integer;
begin
  myname[1] := 'N';
  myname[2] := 'o';
  myname[3] := 'r';
  myname[4] := 'm';
  myname[5] := 'a';
  myname[6] := 'n';
  for i := 1 to 6 do
  begin
    write(myname[i]);
  end;
  writeln;
  write('Press <Enter>');
  readln;
end;
procedure chess;
var
  board : array[1..8, 1..8] of char;
  i, j : integer;
begin
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
    begin
      board[i, j] := '_';
    end;
  end;
  board[1,8] := 'k'; board[1,6] := 'r'; board[2,8] := 'p';
  board[2,7] := 'p'; board[2,6] := 'b';
  board[4,5] := 'N'; board[4,6] := 'Q';
  board[7,8] := 'P'; board[7,7] := 'P'; board[7,6] := 'P';
  board[8,6] := 'K';
  for i := 1 to 8 do
  begin
    for j := 1 to 8 do
    begin
      write(board[i, j], '   ');
    end;
    writeln; writeln;
  end;
  write('Press <Enter>');
  readln;
end;
begin
  //name;
  chess;
end.