Реализовать сортировку массива записей

[Tuns]

Реализовать сортировку массива записей из программы 1(программа 1:Реализовать алгоритм сортировки числовых массивов данных методом Хоара)по одному из строковых полей с использованием дополнительной структуры данных (массива указателей) без перестановки самих элементов массива, а путем перенастройки указателей.
программа 1:

procedure sort(var m:t_mas);
  procedure recurs_sort(l, r: word);
  var i, j: word;
      x, t: integer;
  Begin
    i:=l; j:=r; x:=m[(l+r) div 2];
    repeat
      while m[i]<x do inc(i);
      while m[j]>x do dec(j);
      if i<=j then begin
        t:=m[i]; m[i]:=m[j]; m[j]:=t;
        inc(i); dec(j);
      end;
    until i>j;
    if l<j then recurs_sort(l, j);
    if i<r then recurs_sort(i, r);
  End;
Begin
  recurs_sort(1, maxsize);
End;

(все на Delphi)помогите пожалуйста !!! заранее спасибо!!!)*