Найти букву, на которую начинается большинство слов в тексте.

[plixa32]

Помогите пожалуйста!!!!

[Vanta11a]

Идешь по словам, считаешь число попаданий первых букв. Находишь максимальное число, выводишь его.

[ViktorR]

Немного подробнее к сказанному:
1. Создаем массив с элементами целого типа с индексом от 0 до 31
2. Читаем строку текста (цикл обработки файла)
3. Берем первый символ строки (цикл обработки строки)
4. Вычисляем индекс: i := Ord(UpCase(c)) - ord('А')
5. Если индекс в диапазоне i >= 0 и i <= 31, то inc(mas[i]): остальное не обрабатываем;
6. Ищем положение пробела в строке.
7. Если поиск вернул ноль, то выходим из цикла обработки строки и начинаем с п.2.
8. Удалаям часть строки от начала до пробела, включая и пробел
9. Если строка не пустая, то повторяем с п.3 иначе переходим к п.2.
10. Если не конец файла, то к п.2.
11. Можно отсортировать массив по убыванию, а можно просто найти максимальный элемент массива.
12. Вывести максимальный элемент.
Примечание: Если текст кириличный, то и 'А' - кириличная.


Как-то так, ...