Составить программу, которая подсчитывает количество заглавных букв в промежутке от "б" до "ф".

Var a :set of char;
  s: string;
  i, c: integer;
begin
  a := ['Б'..'Ф', 'Ё'];
  writeln('Введите строку: ');
  readln(s);
  
  for i := 1 to Length(s) do
    if s[i] in a then c := c + 1;
    
  writeln('ответ. ', c);
end.