Составить программу, которая определяет количество символов "о", в введенном предложении с клавиатурыНапример,предложение "Мама моет раму"

program N1;var s:string;i,k:integer;beginreadln(s);for i:=1 to (length(s)) do beginif (s[i]='о') or (s[i]='О') thenk:=k+1;end;write(k);end.