Matrix Sorting

uses wincrt;
Type Mat=Array[1..6,1..6] of integer;
Var M:Mat;N:byte;


Procedure Remplissage(Var M:Mat;Var N:Byte);
Var L,C:Byte;
Begin
  Randomize;
  N:=Random(4)+2;
  For L:=1 to N do
  Begin
    For C:=1 to N do
    Begin
      M[L,C]:=Random(100);
    End;
  End;
End;


Procedure Tri(Var M:Mat;N:Byte);
Var T:Array[1..12] of integer;
L,C,i,j:byte;
Test:Boolean;
Begin
  j:=0;
  For L:=1 to N do
  Begin
    For C:=1 to N do
    Begin
      j:=j+1;
      T[j]:=M[L,C];
    End;
  End;

  Repeat
    Test:=false;
    For i:=1 to j-1 do
    Begin
      if T[i] > T[i+1] then
      Begin
        X:=T[i];
        T[i]:=T[i+1];
        T[i+1]:=X;
        Test:=true;
      End;
    End;
  Until Test=False;

  i:=0;
  For L:=1 to N do
  Begin
    For C:=1 to N do
    Begin
      i:=i+1;
      M[L,C]:=T[i];
    End;
  End;
End;


Procedure Affichage(M:Mat);
Var L,C:byte;
Begin
  For L:=1 to N do
  Begin
    For C:=1 to N do
    Begin
    write(M[L,C],' ');
    End;
    writeln;
  End;
End;

Begin
  Remplissage(M,N);
  Tri(M,N);
  Affichage(M);
End;