Дана строка, содержащая текст. Вывести на экран процент встречаемости заглавных букв. очень НАДО пОжАлУйСтА

var
s: string;
c, nu: integer;
begin
write('строка? ');
readln(s);
for c := 1 to length(s) do if s[c] in ['A'..'Z', 'А'..'Я', 'Ё'] then inc(nu);
writeln('процент заглавных: ', nu / length(s) * 100:0:2);
end.