[_Nox_]

for i:=1 to quan do
 begin
  p:=false;
  for j:=1 to quan-1 do
   if object [j,1]+object [j,2] >  object [j+1,1]+object [j+1,2] then
    begin 
     cc:=object [j,1];
     object [j,1]:=object [j+1,1];
     object [j+1,1]:=cc;
     cc:=object [j,2];
     object [j,2]:=object [j+1,2];
     object [j+1,2]:=cc;
     p:=true;
    end;
   if not p then break;
  end;

Походу так, самый простой вариант