Код: Выделить всё
for i:=1 to N do
for j:=1 to N-i do
if a[j]>a[j+1] then
begin
temp:=a[j];
a[j]:=a[j+1];
a[j+1]=temp;
end;
Если элементы массива - не числа, а записи, и упорядочивать надо по какому-то полю этой записи (например, записи о сотрудниках упорядочить по их возрасту), условие будет выглядеть примерно так: a[j].vozrast>a[j+1].vozrast