Помогите решить задачу в Паскале: вводится строка с клавиатуры. определить сколько в ней о.

var  s:string;  k,i:integer; {k-количество символов 'o',i-счетчик цикла} begin  readln(s);  k:=0;  for i:=1 to length(s) do {цикл от 1 до длины строки}   if s[i]='o'    then   k:=k+1;  writeln(k); end.

В условии задачи нечетко указано, какой символ искать: "о" - это может быть и латинская буква, и кириллическая. В программе предполагается, что это латинский символ, в противном случае его достаточно заменить в const на нужный. const    c:char='o'; var    s:string;    i,k:integer; begin    Write('Введите строку: '); Readln(s);    k:=0;    for i:=1 to Length(s) do if s[i]=c then Inc(k);    Writeln('Символ "',c,'" встречается ',k,' раз(а)') end. Тестовое решение: Введите строку: Learn wisdom by the follies of others Символ "o" встречается 4 раз(а)