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.