   : 

  type chessFieldType = array[1..8, 1..8] of integer; 

      - ,  8  8   .      'var': 

  type 
    chessFieldType = array[1..8, 1..8] of integer; 
  var 
    chessField: chessFieldType; 

  , : 

  var 
    chessField: array[1..8, 1..8] of integer; 

        : 

  type chessFieldType = array[1..8, 1..8] of integer; 
  var chessField: chessFieldType; 
     i, j, count: integer; 
  begin 
    ... 
    {   :     } 
    ... 
    count := 0; 
    for i:=1 to 8 do 
      for j:=1 to 8 do 
        if chessField[i, j] = 0 then count := count + 1; 
  end. 

MIDletPascal    .    1-, 2-,   10-  (, ,         ,    ). 

          . ,     : 

  var a:array[1..5] of integer; 
  begin 
    a[7] := 10; { a[7]       } 
  end. 

