Сортировка списка на статической памяти.

[Celeritas]

Сортировка списка на статической памяти.

Господа, очень-очень прошу помочь разобраться с программой:

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

Есть несколько заготовок по инициализации, добавлению и выводу элементов, но, по ходу дела,это все едва ли правильно написано. Как сделать здесь сортировку и составить это счастье в единую программу у меня мозга уже не хватает(
Помогите, пожалуйста.

program alpha;
uses
  crt;
const N=10; null=(-1);
      type
      PElem = integer;
      TElem = record;
      data: String;
      next: PElem;
      end;
          Tlist = record;
          buffer:array[1..N] of TElem;
          head: PElem;
          free:PElem;
          end;
var
i : string;
 
Procedure inst (var list: Tlist); {инициализация списка}
var i:integer;
begin
     list.head:= null;
     list.free:=1;
     for i:=1 to N-1 do
         list.buffer[i].next:=i+1;
         list.buffer[N].next :=Null;
end;
 
Procedure insert (var List : TList; const data: String);
var obj: TElem;
pointer: PElem;
i:string;
begin
         pointer:=list.free;
         writeln('Vvedite dannye');
         readln(i);
         i:=data;
         list.buffer[pointer].data:=data;
         list.free:=list.buffer[list.free].next;
         list.head:=pointer;
end;
 
Procedure Print(var pointer:PElem; list: Tlist);
var
i:integer;
begin
pointer:=list.head;
i:=1;
 repeat
  Writeln(i, list.buffer[pointer].data,' ');
  pointer:=list.buffer[pointer].next;
 i:=i+1;
 until pointer=null;
 
end;

Буду очень признательна)