Технический форум - Сортировка списка на статической памяти.

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

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

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

PHP код:


		
			
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;

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