A l'aide !!Produit de deux matrices en pascal

Avant tout je vous remercie pour votre reponse !

c'est un procedure en Pascal :


Procedure produit ( N:integer; matA,matB:matrice; var matC::matrice);
var i,j,k :integer;
begin
for i:=1 to N do
for j:=1 to N do
begin
matC[i,j]:=0;
for k:=1 to N do
matC[i,j]:=matC[i,j]+matA[i,k]*matB[k,j];
end;
end;

Ps: A vrai dire, je dois utiliser le produit de deux matrices afin de pouvoir creer un programme qui me permetera de crypter un MOT [ quelconque ] saisi au clavier par l'utilisateur .

Normalement on utiliserait plutôt une fonction pour ce genre de problème...
Mais pour que les tailles des matrices soient différentes, il va falloir utiliser un type matrice un peu plus compliqué qu'ici où ça semble n'être qu'un simple array[1..N,1..N] of integer...

Exemple :

const Nmax = 10;

type Matrice = record
    M,N : 1..Nmax;
    tab : array[1..Nmax,1..Nmax];
    end;

Et un petit exemple d'utilisation :

function lecture:Matrice;
var i,j:integer;
begin
    write('nbColonnes = ');
    readln(result.M);
    writeln('nbLignes = ');
    readln(result.N);
    for i:=1 to result.N do
    for j:=1 to result.M do
    begin
        write('tab[',i,',',j,'] = ');
        readln(result.tab[i,j]);
    end;
end;