[beZ_probleM]

Type 
     Tobjint = array[1..10,1..10] of integer; 

Var  
  i,j,k : integer; 
  object : array[1..10] of Tobjint; 
begin 
//.....
Object[i].masint[j,k] := 100;
end.