[chainik]

Вот процедура пузырьковой сортировки (один из множества способов сортировки).
Остальное- уж пожалуйста сам. Напрягать мозги иногда полезно.
Особенно перед сессией.

Код:

procedure BulbSort(var z:array of integer);
var
flag:boolean;
Ztmp,i,N:integer;
begin
N:=0;
    repeat
    flag:=false;
    for i:=High(z) downto N+1 do
        begin
        if (z[i] < z[i-1]) then
            begin
            flag:=true;
            Ztmp:=z[i-1];
            z[i-1]:=z[i];
            z[i]:=Ztmp;
            end;
        end;
    inc(N);
    until not flag;
end;