Сортировка линейного списка, реализованного двумя массивами

[coptor]

Привет! Очень нужно решить задачу по сортировке элементов линейного однонаправленного списка, реализованного двумя массивами. Сортировку желательно простую - выбором, вставкой или обменом (пузырёк).
Первый массив хранит в себе данные, второй массив - указатели. Сортировать нужно массив указателей, первый массив трогать нельзя.
Процедура создания массивов:

var info,pt:array of integer;


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
listbox1.items.clear;
randomize;
setlength(info,0);
setlength(pt,0);
for i := 0 to n do // n=9, оба массива из 10 элементов
begin
Setlength(info, length(info)+1);
Setlength(pt, length(pt)+1);
info[i] := random(100);
pt[i]:= i+1;
end;
pt[length(pt)-1]:=-1; //последний указатель указывает на null.
show; //функция обхода списка
end;

Обход списка:

var i:integer;
begin
i:=v;  //v=0; указывает на начало списка
while i<>-1 do
begin
listbox1.items.add(inttostr(info[i]));
i:=Pt[i];
end;

[coptor]

Всё ещё нужен хелп