[DungeonLords]

Да незашто спасибо говорить.

P.S. Я хотел завернуть в массив
var fam:array [0..50] of string;
И разбивать фамилию, по каждой букве, в каждый индекс массива.

А потом сортировать массив.