не могу понять как решать задачу в delphi :(

[Юра Кадников]

Символы и строки.
Дана строка. Подсчитать кол-во содержащих в ней 1(прописных букв) 2 (строчных букв). (это навыбор или такие или такие.

[Don Karleone]

// подсчет кол-ва прописных английских букв в строке Str
Count:=0;
for i:=1 to Length(Str) do
  if Str[i] in ['A'..'Z'] then Inc(Count);