типа по первой букве сортировка.
Ни составит труда потом отсортировать в цикле с учетом следующих букв.
или вообще рекурсивно замутить.

mas: array[1..4] of string; - тута имена
temp:string;


for y:=1 to 4 do
for x:=1 to 4-y do if ord(mas[x][1])>ord(mas[x+1][1]) then
begin
temp:=mas[x+1];
mas[x+1]:=mas[x];
mas[x]:=temp;
end;