анализ и преобразование текста строки Опции

[Багирка]

ввести строку, состоящую из нескольких предложений. построить результирующую строку, содержащую только предложения, состоящие из заданного количества слов. помогите!!!

[Lapp]

Вот, примерно так попробуй сделать:

  i:=1;
  while i<=Length(s) do begin
    m:=i;
    n:=0;
    repeat
      while (i<=Length(s)) and not (s[i] in Letters) do Inc(i);
      while (i<=Length(s)) and (s[i] in Letters) do Inc(i);
      Inc(n)
    until s[i]='.';
    if n=k then r:=r+Copy(s,m,i-m+1);
    Inc(i)
  end;

Учти, что я тут считаю, что (а) предложение обязательно оканчивается точкой, которая (б) следует непосредственно за словом.

[Багирка]

спасибо!