Определить, сколько раз в тексте встречается заданное слово. Написать программу, Паскаль

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

Определить, сколько раз в тексте встречается заданное слово. Написать программу, Паскаль

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

var

  s, sl, sc: string;   

  i, k: integer;

begin

  write(‘Введите текст ‘);

  readln(s);

  write(‘Введите слово ‘);

  readln(sl);

  s:=’ ‘+s+’ ‘;

  sl:=’ ‘+sl+’ ‘;

  for i := 1 to length(s) — length(sl) + 1 do   

  begin

    sc := copy(s, i, length(sl));   

    if sc = sl then inc(k);   

  end;

  if k = 0 then writeln(‘Не встречается’)  

  else writeln(‘Встречается ‘, k, ‘ раз’);

end.