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 раз(а)