program new;

const
  zeroBoard := [
                TIntegerArray([0,0,0,0]),
                TIntegerArray([0,0,0,0]),
                TIntegerArray([0,0,0,0]),
                TIntegerArray([0,0,0,0])
               ];

procedure displayBoard(board: T2DIntegerArray);
var
  str: String;
  x, y: Integer;
begin
  writeLn('--------');
  for x := 0 to 3 do
  begin
    for y := 0 to 3 do
      if y <> 3 then
        str := str + intToStr(board[x][y]) + ','
      else
        str := str + intToStr(board[x][y]);
    writeLn(str);
    if ( ( x + 1 ) mod 4 = 0 ) and (x <> 3) then
      writeLn('');
    str := '';
  end;
  writeLn('--------');
end;

function loadBoard: T2DIntegerArray;
var
 i, x, y: Integer;
begin
  result := zeroBoard;
  displayboard(zeroBoard);

  for y := 0 to 3 do
    for x := 0 to 3 do
    begin
      result[y][x] := random(10);
    end;

    displayboard(zeroboard);
end;

begin
  cleardebug;
  loadBoard;
end.