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

[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 пробела из за этого не выведутся все согласные глухие.
Или может можно придумать условие?

[ozzy]

Удаляем пробелы:

Код

function DeleteBlanks(var a:string):string;
var
 i:integer;
begin
 for i:=1 to length(a)-1 do
   if (a[i]=' ') and (a[i+1]=' ') then
     Delete(a,i,1);
 DeleteBlanks:=a;
end;

[trminator]

Удаляем кратные пробелы (два-три-много подряд)

function DelSpaces(var s:string);
begin
 while pos(<ДваПробела>,s)>0 do
    delete(s,pos(<ДваПробела>,s),1)
end;