Дана строка. Посчитать сколько в ней букв «ы», «ю», «я».

var   s: string;   i, n1, n2, n3: integer; begin   s := 'Это текст для подсчета в нем символов. Такое вот занятное дело.';   s := s + 'Выбраны не самые частые буквы - ы, ю, я, но таково задание!';   n1 := 0; n2 := 0; n3 := 0;   for i := 1 to length(s) do     case upcase(s[i]) of       'Ы': n1 := n1 + 1;       'Ю': n2 := n2 + 1;       'Я': n3 := n3 + 1;     end;   writeln('В строке встретились буквы: ы :', n1, ' раз, ю :',     n2, ' раз, я: ', n3, ' раз') end. Тестовое решение: В строке встретились буквы: ы :6 раз, ю :1 раз, я: 3 раз