Manipulation des matrices

Voilà un exercice qui manipule des matrices ... à vous d'explorer.

Code:

program somatrice;
uses wincrt;

type
  MATRICE = array[1..10,1..10] of integer;



{Procédure Saisie Matrice}
procedure saisie_mat(var M: MATRICE;var n: integer);
var
  i,j: integer;
begin

  {saisie Taille Matrice}
  repeat
    write('Donner la taille de la matrice: ');
    readln(n);
  until (n in [1..10]);

  {remplissage Matrice}
  for i:=1 to n do
      for j:=1 to n do
          M[i,j] := i + j;

end;

{Procédure Affichage Matrice}
procedure affiche_mat(M:MATRICE;n:integer);
var
  i,j: integer;
begin
  for i:=1 to n do
  begin
      for j:=1 to n do
          write(M[i,j]:3,'  ');
      writeln;
  end;
end;

{fonction Somme Matrice}
function Somme_mat(M:MATRICE;n:integer):integer;
var
  S,i,j: integer;
begin
  S := 0;
  for i:=1 to n do
      for j:=1 to n do
          S := S + M[i,j];
  Somme_mat := S;
end;

{Somme Diagonale}
function Somme_diag(M:MATRICE;N:integer):integer;
var
  i,j,S: integer;
begin
 S:=0;
 for i:=1to n do
  S:= S+M[i,i];
 Somme_diag := S;
 
end;

{produit Diagonale}
function Produit_diag(M:MATRICE;N:integer):integer;
var
  i,j,P: integer;
begin
 P:=1;
 for i:=1to n do
      P:=P*m[i,i];
 Produit_diag := P;
 
end;



{programme principal}
VAR
  MAT : MATRICE;
  TAILLE: integer;

BEGIN

  saisie_mat(MAT,TAILLE);
  affiche_mat(MAT,TAILLE);
  writeln('Somme Matrice = ',Somme_mat(MAT,TAILLE));
  writeln('somme diago matrice:',somme_diag(MAT, TAILLE));
  writeln('produit diago matice:',Produit_diag(mat,taille));

END.