Найти и вывести все слова, не содержащие указанную букву - Pascal ABC

program slova_bez_c;
  var i:byte; s,slovo:string; c:char;
begin
  write('Введите текст:'); readln(s);
  writeln('Введите символ:'); readln(c);
  writeln('Слова текста без символа ',c,':');
  slovo:='';
  for i:=1 to length(s) do
    if s[i]<>' '
      then slovo:=slovo+s[i]
      else begin
        if pos(c,slovo)=0
          then writeln(slovo);
       slovo:='';
       end;
 if pos(c,slovo)=0
   then writeln(slovo);
end.