Delphi-Help

var

i:integer;

st:string;                             {строка  }

s:char;                                {буква   }

BEGIN

writeln('Введите строку слов:');

readln(st);

write('Введите букву: ');

readln(s);

st:=' '+st;                 {добавляем пробел в начале строки   }

repeat                      {ЦИКЛ                               }

 i:=pos(' '+s,st);          {ищем слово на букву s              }

 inc(i);                    {пробел не считаем                  }

 if i<>1 then               {если слово нашли то                }

  repeat                    {цикл                               }

  write(st[i]);             {напечатать букву найденного слова  }

  delete(st,i,1);           {удалить эту букву                  }

  until (st[i]=' ')or(i=length(st)); {если слово кончилось то конец цикла}

 writeln;

until  i=1;               {если больше нет найденных слов то КОНЕЦ ЦИКЛА}

writeln('st=',st);

END.