Ввести строку и определить количество заглавных букв

Думаю, немного нестандартный но зато работает))

var  s1,s2:string;  i,n:integer;begin  readln(s1);  s2:=LowerCase(s1);  writeln(s2);  for i:=1 to length(s1) do    if s1[i]<>s2[i] then inc(n);  writeln(n);end.