[JunkieBeat]

Здравствуйте, проблема при сортировке по убыванию вот код

Код:

for i:=0 to Length(Mas)-1 do
  begin
    for j:=0 to Length(Mas)-1 do 
      if Mas[j] < Mas[j+1] then 
        begin
          buf := Mas[j]; 
          Mas[j] := Mas[j+1];
          Mas[j+1] := buf;
        end;
  end;

меняю знак с < на > все нормально работает а если так ставлю то вот такая вот ошибка в ходе работы программы