Обработка текста. Посмотрите

[Absent]

Дан текст. Способ описания текста (массив символов, строка, текстовый файл). Текст разбит на слова. Предпологается что слово- это группа символов, не сожержащая пробелов и отделенная пробелами от других слов.
В задонном тексте найти все слова, начинающиеся с задонного символа.
"как тут типы слов , символов задавать. И обЪясните пожалуста или ссылку киньте"

[SNUPY]

function A(s, Stext:String):cardinal;
var
  ss:string;
begin
  ss:=Stext;
  result:=0;
  if Pos(s,ss)=1 then result:=1;
  While Pos(' '+s,ss)>0 do
  begin 
    inc(result);
    delete(ss,1,Pos(' '+s,ss)+length(s));
  end;
end;

[Absent]

Спасибо большое, у нас препод не чего не объясняет, приходится самому разбиратся т.е помощи просить.

[SNUPY]

Ну вот тогда лучше в помощь применять:
http://www.delphibasics.ru/