Deux méthodes de tri

procedure Permuter(var a, b: integer);
var aux: integer;
begin
    aux:=a;a:=b;b:=aux;
end;

procedure Tri1(var t: tab; n: integer);
var i, j : integer;
begin
    for i:=1 to n-1 do
        for j:=1 to n-1 do
            if t[i]>t[i+1] then Permuter(t[i], t[i+1]);
end;

procedure Tri2(var t: tab; n: integer);
var i, j : integer;
begin
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if t[i]>t[j] then Permuter(t[i], t[j]);
end;