У меня есть один способ считать строчные, а есть ли ещё?
Код
for i:= 1 to length(s) do
if (ord(s[i]) in [160..175]) or (ord(s[i]) in [224..239]) then
rus:= rus + 1;
var alpha: string;
...
alpha := 'абвгде ... юяАБВГ ... ЮЯ';
...
for i := 1 to length(s) do
if pos(s[i], alpha) > 0 then rus := rus + 1;
...
var
stro:set of char;
...
stro:=[#160..#175]+[#224..#239];
for i:=1 to Length(s) do if s[i] in stro then Inc(Rus);