::除了可以直接对矩阵进行循环，还可以对子矩阵进行赋值修改。
  a:=array((1,2,3),(2,3,4),(3,4,5));
  a[1:2,1:2]::begin
   mcell:=mcol*mrow;
  end;