Bubble sort

//Пузырек
uses SysUtils;

const N = 100;
var
    a: array [1..N] of integer;
    i, j, t: integer;
begin
    //Заполняем массив a элементами
    for i:=1 to N do begin
        for j:=2 to N do begin // можно бежать от 1 до N-1, но тогда надо исправить +-1 ниже.
            if a[j-1]>a[j] then begin // вот здесь я сортирую по возрастанию, но можно подсунуть любую функцию сюда: if compare(a[j-1], a[j]) then поменяли местами.
                t:=a[j-1];
                a[j-1]:=a[j];
                a[j]:=t;
            end;
        end;
    end;
end.