Сортировка по ключам(буква и цифра)

[Otar4ik]

Здесь не будет слов помогите и прочее.

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

Просто то,что я находил сам,всё через массивы,а мне через указатели(у меня список)

Это нужно для программы(базы-данных),там всё через указатели и без классов.

[ZX Spectrum-128]

так подойдет?

[Otar4ik]

Спасибо)Сейчас попробую)

[Otar4ik]

Не помогло(((

Выкладываю что где объявил и сами процедуры сортировки.Преподаватель сказал, что нужно или желательнее сортировку пузырьком применять.

const
   n_items = 7;
   l_name = 30;
 
type
   tname = string[l_name];
   pTovar = ^Tovar;
   Tovar = record
      name: tname;
      kolvo: integer;
      cena: real;
      next: pTovar;
      prev: pTovar;
   end;

var
   DefaultMode,
   ActiveColor, InactiveColor: word;
   key: char;
   item: word;
   prev: word;
   beg: pTovar;
   fin: pTovar;
   p: pTovar;
   name: tname;
   tovr: Tovar;

Сортировка 1-ключ-буква-По Алфавиту.То есть имя Товара нужно отсортировать по алфавитному порядку.

procedure Sortkey1(p:pTovar; const tovr:tname);
var
  tmp,tmps:pTovar;
begin
  New(tmp);
  while p<>nil do
  begin
    tmp:=p^.next;
    while tmp<>nil do
    begin
      if tmp^.name<p^.name then
      begin
        tmps:=tmp^.name;
        tmp^.name:=p^.name;
        p^.name:=tmps
      end;
      tmp:=tmp^.next
    end;
    p:=p^.next
  end
end;

ругается на name несоотвествие типа.

Сортировка 2-ключ цифра-по цене по возрастающей

procedure Sortkey2(cena:pTovar);
var
  tmp,beg,fin,p:pTovar;
begin
  while p<>nil do
  begin
    tovr:=p^.next;
    while tmp<>nil do
    begin
      if tmp^.cena<p^.cena then
      begin
        beg:=nil;
        fin:=nil;
        if p<>nil then
          while beg^.next<>p do beg:=beg^.next;
        fin:=tmp^.next;
        if p^.next=tmp then
        begin
          tmp^.next:=p;
          p^.next:=fin
        end
        else
        begin
          tmp^.next:=p^.next;
          p^.next:=fin;
        end;
        if beg<>p then
          beg^.next:=p;
        if p<>nil then
          pered^.next:=tmp
        else
        fin:=tmp;
        tmp:=p;
        p:=beg;
      end;
      tmp:=tmp^.next;
    end;
    p:=p^.next;
  end;
end;