Дана строка . Подсчитать количество содержащихся в ней цифр , прописных букв и строчных букв — Pascal(Паскаль)

const pr:set of char=['A'..'Z','А'..'Я'];
      str:set of char=['a'..'z','а'..'я'];
var s:string;
    i, kst,kpr,kdig:integer;
begin
writeln('Введите строку');
readln(s);
kst:=0; kpr:=0; kdig:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then inc(kdig)
else
if s[i] in pr then inc(kpr)
else
if s[i] in str then inc(kst);
writeln('Цифр: ',kdig,#13#10,'Строчных букв: ',kst,#13#10,
'Прописных букв: ',kpr);
readln;
end.