Сортировка циклического однонаправленного списока

[ArtJuhn]

Есть циклический однонаправленный список, заданный двумя массивами, массивом данных (info) и массивом указателей (pt). Нужно отсортировать список.
Массив данных ведь сортировать не нужно, а нужно лишь перевести указатели ?
Натолкните на идею, каким путём это реализовать.
Элементы массива данных в любом случае нужно будет сравнивать (что бы узнать что чего меньше), или нет?
За основу взял сортировку пузырьком:

procedure Sort(var info:array of integer);
var i,j,tmp:integer;
begin
  for i:=0 to Length(info)-1 do
    for j:=Length(info)-1 downto i do
      if info[j-1]>info[j] then
        begin
 // тут проблемы...
        end;
end;

Сравнили мы два соседних эл-та массива данных, как дальше быть, как переставить указатели?

[evg_m]

если уж мы делаем список то доступ к данным должен быть через этот список (т.е. через массив указатели (pt) который мы и должны сортировать.

procedure Sort(var pt:array of integer);
var i,j,tmp:integer;
begin
for i:=0 to Length(pt)-1 do
for j:=Length(pt)-1 downto i do
if info[pt[j-1]]>info[pt[j]] then
begin
// а теперь меняем pt[j-1] pt[j]
end;
end;

[ArtJuhn]

procedure Sort(var pt:array of integer);
var i,j,tmp:integer;
begin
  for i:=1 to Length(pt) do
    for j:=Length(pt) downto i do
      if info[pt[j-1]]>info[pt[j]] then
        begin
          tmp:=pt[j];
          pt[j]:=pt[j-1];
          pt[j-1]:=tmp
        end;
end;

Не работает. Может быть ошибка в том, что последний эл-т должен ссылаться на первый эл-т ? (ведь список циклический однонаправленный).
Массивы заданы так:

const
  N=10;

var
  Form1: TForm1;
  Info,pt: array[1..N] of integer;

А в процедуре получается динамический массив (var pt:array of integer). Возможно тут тоже может быть ошибка ?
На всякий случай приведу ещё, как создаю список:

var i:integer;
begin
  for i:=1 to ListBox1.Items.Count do
    begin
      Info[i]:=StrToInt(ListBox1.Items[i-1]);
      pt[i]:=i+1;
    end;
  pt[ListBox1.Items.Count]:=v; // последний эл-т ссылается на первый, v - указатель, который ссылается на первый эл-т списка,   изначально v:=1;
end;