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

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