Помогите сделать в pascal abc. Дана строка.Укажите те слова, которые содержат хотя бы одну букву к.

var  s: string;begin  readln(s);  foreach k: string in s.Split(' ') do    if (pos('к', k) > 0) then      writeln(k);end.