Модифицированный пузырек

[Антон Лысенко]

если я правильно понял то вы хотите что бы не выполнялось лишнее сравнение. Это реализуется вот в таком коде:

procedure DesiredMas(var a:mas;m:integer);
var i,j,Tmp:Integer; flag:boolean;
  begin
  repeat
   flag:=false;
    for i:=1 to m-1 do
     for j:=i+1 to m do
      if a[i]<a[j] then
        begin
          Tmp:=a[i];
          a[i]:=a[j];
          a[j]:=Tmp;
          flag:=true
        end;
  until (flag=false)
   end;

[*stRong*]

Нужно модифицировать сортировку пузырьком – запоминать индекс последнего обмена элементами и укорачивать следующий цикл.
Я не совсем понял как это? Не нужно выполнять задание, прошу объяснить поподробнее, что от меня требуется.