Tableau à plusieurs dimensions

Matrice à n lignes et k colonnes par exemple.
Syntaxe : type tab = array[TI1, TI2] of TB
Par exemple type matrice = array[1..10, 1..20] of real; définit l'ensemble des matrices réelles à 10 lignes et 20 colonnes.
Si on a var tab : matrice; alors tab[3][2] (aussi noté tab[3,2]) référencera l'élément se situant à la troisième ligne et la deuxième colonne de la matrice.

Un exemple : la somme de deux matrices.

program sommemat;

const n=2;

type matrice = array[1..n,1..n] of real;

var mat1, mat2, mat3 : matrice;

procedure affichage(mat : matrice);
   var i, j : integer;
   begin
   for i:=1 to n do
       begin
       for j:=1 to n do
           write(mat[i,j]);
       writeln;
       end;
   end;

procedure saisie(var mat : matrice);
   var i, j : integer;
   begin
   for i:=1 to n do
       for j:=1 to n do
           begin
           write('mat(',i,',',j,') = ?');
           readln(mat[i,j]);
           end;
   end;

procedure somme(m1, m2 : matrice; var m3 : matrice);
   var i, j : integer;
   begin
   for i:=1 to n do
       for j:=1 to n do
           m3[i,j]:=m1[i,j]+m2[i,j];
   end;

begin
     writeln('saisie de mat1');
     saisie(mat1);
     writeln('saisie de mat2');
     saisie(mat2);
     somme(mat1, mat2, mat3);
     writeln('affichage de mat3');
     affichage(mat3);
end.