Сортировка

[kentlm]

Подскажите пожайлуста как отсортировать линейный односвязный список методом пузырька???
Но при этом сортировка должна происходить пошагово, т.е по нажатию на кнопку выполняется один шаг, при следующем нажатии опять выполняется один шаг и т.д., пока не отсортируется весь список!!!!

[Veiron]

пример процедурой:

procedure BubbleSort;
var
  i,j: index;
  x: item;
begin 
  if a[j-1].key > a[j].key then
  begin
    x:=a[j-1];
    a[j-1]:=a[j];
    a[j]:=x;
  end;
end;