Pascal, строкиОпределить Как узнать сколько раз встречается “о” в первом слове строки.

 vars: string;c: char;i: integer;
 count: integer;
 begin
readLn(s);
  read(c);
count := 0;
  for i := 1 to length(s) do
   if s[i] = c then
   inc(count);
writeLn(count);
readLn;
 end.