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

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.