Напишите алгоритм (программу), проверяющую является ли частью данного слова…

program sss; uses crt; var s: string; i,k,m: integer; beginclrscr; readln (s); for i: =1 to length (s) -2 dobeginif (s[i]='т') or (s[i]='Т') and (s[i+1]='о') or (s[i+1]='О') and (s[i+2]='М') or (s[i+2]='м') thenbegin k: =1; break; end; end; if k=1 then writeln ('Да') else writeln ('Нет'); readkey; end.