Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Компактный код для сортировки массива

01.01.2007
{ **** UBPFD *********** by kladovka.net.ru ****
>> Компактный код для сортировки массива.
 
Очень небольшой код для сортировки массива. Состоит из двух циклов for.
Сортирует от болшего к меньшему.
 
Зависимости: нет
Автор:       Михон
Copyright:   (<Михон>) (с)
Дата:        14 января 2007 г.
********************************************** }
 
for i:= 1 to 5 do begin //отвечает за место старта проверки
    for j:= i to 5 do begin //сам цикл поверки
      if (x[j]) > (x[i]) then begin //если следующеее число больше i,то
        a:= x[j]; //
        x[j]:= x[i]; //меняем местами
        x[i]:= a; //
      end;
    end;
  end; 

Пример использования:

var
  x: array [1..5] of integer;
  a,k,i,j: integer;
 
 
begin
  writeln ('Vvedite massiv!!!');
  for k:= 1 to 4 do begin //вводим массив
    read (x[k]); //--,--
  end; //--,--
  readln (x[5]); //--,--
  for i:= 1 to 5 do begin //отвечает за место старта проверки
    for j:= i to 5 do begin //сам цикл поверки
      if (x[j]) > (x[i]) then begin //если следующеее число больше i,то
        a:= x[j]; //
        x[j]:= x[i]; //меняем местами
        x[i]:= a; //
      end;
    end;
  end;
  for k:= 1 to 4 do begin //
    write (x[k],' '); //
  end; // выводим массив
  writeln (x[5]); //
  readln; // 
end.