Сортировать список пузырьковым методом

[Lunatik]

Несколько раз переписывала по-разному, все равно не работает. Помогите исправить, пожалуйста... В Delphi.

procedure sort(var p: ppt);
var i:integer;
q,r: ppt;
begin
q:=p^.next;
q^.pred:=p;
if q^.next=nil then
begin
while q<>nil do
begin
r:=q^.pred;
if  r^.inf> q^.inf then
begin
i:=r^.inf;
r^.inf:=q^.inf;
q^.inf:=i;
q:=q^.pred;
shows(p);
end; end;
end; end;

[Anatole]

чтобы это работало необходимм чтобы в процедуру сортировки передавался последний элемент двухсвязного списка (if q^.next=nil then)
для того чтобы полностью отсортировать список необходимо вводить в процедуре признак окончания сортировки (сортировка считается оконченой когда при просмотре списка нет ни одной перестановки)

[Lunatik]

if q^.next=nil then у меня есть
Можете объяснить насчет признака окончания поподробней?

[Anatole]

в вашей процедуре Sort список просматривается от последнего елемента списка ( іf q^.next=nil) до первого (while q<>nil do и q:=q^.pred следовательно при обращении к этой процедуре, в качества параметра необходимо передавать последний элемент списка, иначе если не выпрлняется условие іf q^.next=nil она закончит работу так и не начав.

Можете объяснить насчет признака окончания поподробней?

Для того чтобы определить отсортирован список или нет вводится переменная, которой перед началом сортировки задаётся некоторое значение. При сортировке, в случае перестановки любых значений, меняют значение этой переменной. Сортировка считается оконченой если значение этой переменной перед началом сортировки и после ёё окончания не изменяется.
Сможете реализовать?