Pascal:узнать количество строчных латинских букв

[nickolaeff]

есть строка.в ней нужно узнать к-во строчных латинских букв.подскажите,как реализовать это.
я делал так:
for i:=1 to length(n) do
if ord(g[i])>=chr(a) and ord(g[i])<=chr(z) then
inc(kolichestvo);

[Poma][a]

begin
            ReadLn (s);
 
            count := 0;       
            for i := 1 to Length(s) do 
                  if s[i] in ['a'..'z'] then
                            Inc(count);
     
            WriteLn (count)
end.

так-то вариантов много например еще можно завести константу LLL // Little_Latin_Letters
и if Pos(s[i], LLL) <> 0 только это решение будет выполнятся примерно (могу ошибаться) в 2 раза больше