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

[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;

[Chilly]

Мне бы с исходником, а то я воще не шарю