Нашёл сортировку списков методом вставки,который писал volvo .
Она мне не подходит.Мне нужна такая сортировка,которую можно применить несколько раз,так,как мне список сначала надо отсортировать по фамилиям,потом по среднему балу.
Имеется таковая?
type functype = function (a, b: node): boolean;
function insert_sort(l: plist; less: functype): plist;
function insert(a: plist; l: plist): plist;
begin
a^.next := nil;
if l = nil then insert := a
else
if less(a^, l^) then begin
a^.next := l; insert := a;
end
else begin
l^.next := insert(a, l^.next);
insert := l;
end;
end;
begin
if l = nil then insert_sort := nil
else insert_sort := insert(l, insert_sort(l^.next, less));
end;
function less_1(a, b: node): boolean; far;
begin
less_1 := a.field_1 < b.field_1
end;
function less_2(a, b: node): boolean; far;
begin
less_2 := a.field_2 < b.field_2
end;
...
{ вызываем для упорядочивания по первому полю: }
first := insert_sort(first, less_1);
...
{ а теперь - сортируем по второму полю: }
first := insert_sort(first, less_2);
...