WordCounter [https://otvet.mail.ru/question/206401843]

program WordCounter;

var
    txt, word:string;
    i, count:integer;

begin
    write('Input text >> ');
    readln(txt);
    write('Input word >> ');
    readln(word);

    count := 0;
    for i := 1 to length(txt) do if(copy(txt, i, length(word)) = word) then inc(count);

    writeln('The number of the words "', word, '" is ', count, '.');
end.