(Паскаль) Подскажите, пожалуйста, как сделать так…

Создаешь массив для сохранения туда фамилий, а потом в цикле сравниваешь по очереди все элементы массива. Побуквенно, начиная с первой и так далее. Если буква стоит в алфавите раньше, то ее код будет меньше. Чтобы узнать код буквы, воспользуйся функцией ord (x).