Tri Matrice (Ligne par Ligne)

Type
  tab = Array [1..10,1..10] Of Integer;

Procedure tri_mat (Var t:tab;l,c:Integer);
Var
  x,i,j,aux: Integer;
Begin
  x := c;
  For i:=1 To l Do
    Begin
      c := x;
      Repeat
        For j:=1 To c-1 Do
          If t[i,j]>t[i,j+1] Then
            Begin
              aux := t[i,j];
              t[i,j] := t[i,j+1];
              t[i,j+1] := aux;
            End;
        c := c-1;
      Until c=0;
    End;
End;