Сортировка связанного списка, методом пузырька, срочно Опции

[Chilly]

Сортировка связанного списка методом "пузырька". Точнее надо этот код преобразовать для списка. Здесь с объектом, но это важно:

procedure O_Array.Job;
    var
       i,k,b:integer;
       f:boolean;
    begin
         if M=0 then
            begin
                 writeln('Error! Array is not create!');
                 writeln('Press any key...');
                 readkey;
                 exit;
            end;

            K:=M;
            repeat
                  K:=K-1;
                  f:=true;
                  for i:=1 to K do
                      if a^[i]<a^[i+1] then
                         begin
                              b:=a^[i];
                              a^[i]:=a^[i+1];
                              a^[i+1]:=b;
                              f:=false;
                         end;
            until f;
    end;

[volvo]

Сколько указателей надо поменять, чтобы "поменять" местами 2 элемента списка? Естественно, если элемент массива - Byte или Integer, то проще поменять местами сами элементы... Если же у тебя A[i] это

Array [1 .. 75] Of LongInt

то я бы сильно подумал, прежде чем перетягивать такие объемы с места на место... ведь эта функция при пузырьковой сортировке будет выполняться сотни (если не тысячи) раз, так зачем же переносить данные, если можно сделать несколько операций с указателями?