مشكلة فى سورس كود كونسل ابلكيشن ...

كود :
Program xxxxx;
Uses crt;
Const N=4; M=6;
Var Mat : array [1..N,1..M] of Integer;
      H : Char;
Procedure Meni;
 Begin
 Writeln ('1- Lire');
 Writeln ('2- Affiche');
 Writeln ('3- Grand');
 Writeln ('4- Min');
 Writeln ('5- Trier_i');
 Writeln ('6- Trier_j');
 Writeln ('7- Somme');
 Writeln ('8- Trans');;
 Writeln ('9- Exit');
 End;
Procedure Lire;
Var i,j : Integer;
 Begin
  Writeln ('Entrez les elements de matrice');
  For i:=1 To N Do
  For j:=1 To M Do
  Readln (Mat[i,j]);
 End;
Procedure Affiche;
Var i,j : Integer;
 Begin
  For i:=1 To N Do
  Begin
   Write (' ');
    For j:=1 To M Do
    Write (Mat[i,j],' ');
    Writeln (' ');
   End;
 End;
Procedure Grand;
Var i,j,A,B,Max : Integer;
 Begin
  Max := Mat[1,1];
  A := 0;   B :=0;
  For i:=2 To N Do
  For j:=2 To M Do
   If (Mat[i,j] > Max) Then
    Begin
     Max := Mat[i,j];
       A := i;
       B := j;
    End; 
   Writeln ('Le pluse Grand : ',Max);
   Writeln ('(i,j) : (',A,',',B,')');
 End;
Procedure Min;
Var i,j,A,B,Min : Integer;
 Begin
  Min := Mat[1,1];
  A := 0;   B := 0;
  For i:=2 To N Do
  For j:=2 To M Do
   If (Mat[i,j] < Min) Then
    Begin
     Min := Mat[i,j];
       A := i;
       B := j;
    End; 
   Writeln ('Le pluse Petit : ',Min);
   Writeln ('(i,j) : (',A,',',B,')');
 End; 
Procedure Trier_i;
Var i,j,x,Temp : Integer;
 Begin
  For i:=1 To (N-1) Do
  For j:=1 To M Do
   For x:=i+1 To N Do
   If (Mat[i,j] < Mat[x,j]) Then
    Begin
     Temp := Mat[i,j];
     Mat[i,j] := Mat[x,j];
     Mat[x,j] := Temp;
    End; 
  For i:=1 To N Do
   Begin
    Write (' ');
     For j:=1 To M Do
    Write (Mat[i,j],' ');
    Writeln (' ');
   End; 
    End;
Procedure Trier_j;
Var i,j,y,Temp : Integer;
 Begin
  For i:=1 To N Do
  For j:=1 To (M-1) Do
   For y:=j+1 To M Do
   If (Mat[i,j] < Mat[i,y]) Then
    Begin
     Temp := Mat[i,j];
     Mat[i,j] := Mat[i,y];
     Mat[i,y] := Temp;
    End; 
  For i:=1 To N Do
   Begin
    Write (' ');
     For j:=1 To M Do
    Write (Mat[i,j],' ');
    Writeln (' ');
   End; 
 End;
Procedure Somme;
Var i,Somme : Integer;
 Begin
  Somme := 0;
   For i:=1 To N Do
   Somme := Somme + Mat[i,i];
  Writeln ('La Somme : ',Somme);
 End;
Procedure Trans;
Var i,j : Integer;
 Begin 
  For i:=1 To M Do
   Begin
    Write (' ');
  For j:=1 To N Do 
    Write (Mat[j,i],' ');
    Writeln (' ');
   End;
     End;  
Begin
Clrscr;
 Repeat
 Meni;
  Write ('Donnez un choix corecte: ');
  Readln (H);
  Case H Of
   '1' : Lire;
   '2' : Affiche;
   '3' : Grand;
   '4' : Min;
   '5' : Trier_i;
   '6' : Trier_j;
   '7' : Somme;
   '8' : Trans;
   '9' : Exit;
  End;
 Until (H = '9');
End.