количество букв русского алфавита

Дана строка, содержащая слова русского и английского языка. Подсчитать количество букв русского алфавита в этой строке.

сделаем функцию определения принадлежности буквы к русскому языку

function is_russia(c: char): boolean;
begin
   case c of
      {лень перечислять все буквы...}
      'a','б','в','г': is_russia:=true;
      'А','Б','В','Г': is_russia:=true;
      else is_russia:=false;
   end;
end;

ну и перебёрем все символы введённой строки с вызовом нашей функции

for i:=1 to length(s) do begin
      if is_russia(s[i]) then begin
         count:=count+1;
      end;
   end;

полный вариант программы с комментариями можно скачат тут