сортировка массивов в паскале

[Иришка1]

Создать программу ,которая состоит из главного модуля и процедуры сортировки массива а1,а2,...,an по возрастанию методом обменов

[Leshii]

Иришка1, а что сделали вы?)

[Иришка1]

в том то и дело,я не знаю как сделать сортировку этим методом(((Я знаю про метод простого обмена(метод пузиря),а про этот метод ничего сказать не могу(((

[Leshii]

Procedure Sort (Var a : Mas);
Var
  i, j, buffer:integer; // переменная buffer в данном случае  временно    хранит в себе сравниваемые величины
Begin
  for i:=n downto 2 do
    for j:=1 to i-1 do
      if a[j]>a[j+1]
        then
          begin
            buffer:=a[j];
            a[j]:=a[j+1];
            a[j+1]:=buffer;
          end;
End;