В чём секрет? Опции

[jackal]

Посмотрите пожайлуста!
Данная прога выводит на экран только глухие согласные, которые есть во 2 слове текста!
Вопрос после кода:

Код

  var s,l:string;
  i,w:byte;
 m:set of char;
   begin
    writeln('введите строку');
    readln(s);
       w:=pos(' ',s);
       l:=copy(s,w,pos(' ',s));
       m:=['ц', 'к', 'ш', 'х', 'ф', 'п'];
   for i:=1 to length(l) do
   if l[i] in m then
   writeln(l[i]);
   end.

 Вопрос: Как сделать так чтобы во всей строчке если введется 2 пробела прога делала бы из них 1 . Например: после 1 слова введено 2 пробела из за этого не выведутся все согласные глухие.
Или может можно придумать условие?