Tri_Bulle (Classique)

Type
  tab = Array [1..10] Of Integer;
Procedure tri_bul (Var t:tab;n:Integer);
Var
  i,aux: Integer;
  echange: Boolean;
Begin
  Repeat
        For i:=1 To n-1 Do
        If t[i]>t[i+1] Then
          Begin
            aux := t[i];
            t[i] := t[i+1];
            t[i+1] := aux;
          End;
    n := n-1;
  Until n=0;
End;