Помогите решить задачу(строки), Найти пробелы Опции

[Alexey]

Есть задача:
найти максимальное число идущих вподряд пробелов в вводимом тексте

заранее спасибо!!!

киньте если есть готовую задачу или идеи...

[Lapp]

Идея простая.. Примерно так:

for i:=1 to Length(s) do if s[i]=' ' then begin
  Inc(n);
  if n>m then Inc(m)
end
else n:=0;