Дана строка. Указать те слова, которые содержат хотя бы одну букву «к». (программа Паскаль)

Question

Дана строка. Указать те слова, которые содержат хотя бы одну букву «к».

Answer 1

Var s,s1:string;
Begin
    write('Строка: ');readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      if Pos('k',s1)>0 then write(s1,' ');
      Delete(s,1,Pos(' ',s));
    End;
End.