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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

 var   s: 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.