[Alegun]

Сообщение от lmikle

Угу, работает, с выходом за границу массива...

А так выходить не будет?

Код:

for i:= Low(X) to High(X)-1 do
 for j:= Low(X) to High(X)-1 do
   if X[j] > X[j+1] then
 begin
   M:= X[j];
   X[j]:= X[j+1];
   X[j+1]:= M;
  end;