Уфф,спасибо большое за труды) попыталась сдать сегодня эту задачу. Русские слова это полбеды, хоть с английскими работает и то хорошо. Проблема в другом - преподаватель не разрешила использовать множества

if S1[i] in ['A'..'z','А'..'я'] then inc(count); //Если текущий символ принадлежит множеству увеличиваем счетчик символов

Как это сделать не через множества, не знаете случайно?)