Помогите решить пожалуйста. Зарание огромное спасибо Написать программу, подсчитывающую количество символов "в" вводимой

var s: string; i: integer; k: integer;begin write( \'Введите строку\' ); readln( s ); k:= 0; for i:=1 to length(s) do begin if s[i] = \'в\' then k:= k+1; end; writeln( k );end. Вводимая строка сохраняется в переменной \"s\". В переменной \"k\" хранится счетчик количества символов \"в\" в введенной строке. Перед подсчетом присваиваем переменной \"k\" значение \"0\". В цикле сравниваем все символы введенной строки \"s\" с символом \"в\" и если они равны, увеличивает счетчик \"k\".