[Off] Ordenação de matrizes

procedure TForm1.Button1Click(Sender: TObject);
Var
   Matriz : Array[1..5,1..5] Of Integer;
   J,
   I,
   Auxiliar : Integer;
   Trocou : Boolean;
begin
   Matriz[1,1] := 1;
   Matriz[1,2] := 1;
   Matriz[1,3] := 1;
   Matriz[1,4] := 1;
   Matriz[1,5] := 3;

   Matriz[2,1] := 2;
   Matriz[2,2] := 2;
   Matriz[2,3] := 2;
   Matriz[2,4] := 2;
   Matriz[2,5] := 2;

   Matriz[3,1] := 3;
   Matriz[3,2] := 3;
   Matriz[3,3] := 3;
   Matriz[3,4] := 3;
   Matriz[3,5] := 3;

   Matriz[4,1] := 4;
   Matriz[4,2] := 4;
   Matriz[4,3] := 4;
   Matriz[4,4] := 4;
   Matriz[4,5] := 1;

   Matriz[5,1] := 5;
   Matriz[5,2] := 5;
   Matriz[5,3] := 5;
   Matriz[5,4] := 5;
   Matriz[5,5] := 4;


   Repeat
       Trocou := False;
       For J := 1 To 4 Do
       Begin
           If(Matriz[J,5] > Matriz[J + 1,5])Then
           Begin
              Trocou := True;
              For I := 1 To 4 Do
              Begin
                 Auxiliar := Matriz[J,I];             // Aux guarda a maior
                 Matriz[J,I] := Matriz[J + 1,5] ;     // Maior recebe a menor
                 Matriz[J + 1,5] := Auxiliar;         // Menor recebe a maior
              End;
           End;
       End;
   Until(Not(Trocou));
   ShowMessage(´Ordenado com sucesso...´);
end;