в тексте удалить слова начинающиеся с заданой буквы

[Ananim-Pbl6ak]

ребят помогите плз, последняя прога для зачета,
в тексте удалить слова начинающиеся с заданой буквы
Все исходные данные вводить с клавиатуры.
Под словом понимать произвольную последовательность печатных символов, отличных от пробела. Все слова окружены одним пробелом.
При решении задачи максимально использовать стан-дартные средства работы со строками.

[Ananim-Pbl6ak]

ну ребят помогите

[alex_fcsm]

Может подойдет

uses crt;
var s,sub:string;
    i,n:integer;
    a:array[1..100] of string;
    ch:char;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
writeln('Input char');
readln(ch);
for i:=1 to n do
 if  a[i][1]<>ch then write(a[i],' ');
end.

[Ananim-Pbl6ak]

уууу слишком сложно можно как нить попроще?

[alex_fcsm]

А чего там сложного? В строке выписываем все буквы до пробела (это значит слово сформировалось), а затем проверяем первую букву слова

[Ananim-Pbl6ak]

тут массивы врод, нам с ними нельзя

[Ananim-Pbl6ak]

ну ребят помогите вам же не сложно

[LAZER]

+1 тоже дали это задание на delphi =( компонент richedit

[IT-man]

нате

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.

чуть чуть переделать и все!!!!

[Stilet]

Вот еще пример проще некуда )

   var k,s:string;i:byte;
begin        {$o-}
 s:='Ura edem na more ';
 i:=1; while i<length(s) do begin
  if (s[i]=' ') then
   if (s[i+1]='e') then begin  inc(i);
   while s[i]<>' ' do inc(i);
  end;
  k:=k+s[i];
  inc(i);
 end;
 writeln(k);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.