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

Спасибо

program kol_v;vars: string;n,i: integer;beginwriteln ('Введите исходную строку ');readln (s);n:=0;for i:=1 to length(s) docase s[i] of'в': inc(n);end;writeln ('В строке ',n, ' букв в');end.