const sl='то';
var
s: string;
k, i: integer;
begin
write('Введите предложение:');
readln(s);
k := 0;
while pos(sl, s) > 0 do
begin
k := k + 1;
delete(s, pos(sl, s), length(sl));
end;
writeln('Слово "то" встречается в предложении ',k, ' раз(а)');
end.
Следующий вариант
program For_r4c0r3;
uses crt;
var
i:integer;
str:string;
k:integer;
begin
k:=0;
writeln('Введите строку'); readln(str);
for i:=1 to length(str) do
begin
if (str[i]='т') and (str[i+1]='о') then k:=k+1;
end;
writeln(k);
end.