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

[Alexey]

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

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

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

[Alexey]

Воть...Сам решил. Смотрите кому интересно или тоже нужна...

program probel;
uses crt;
var s,e:string;
Begin
clrscr;
writeln('Введите фразу:');
readln(s);
e:=' ';
while length(e)<255 do insert(' ',e,1);
repeat
      if pos(e,s)<>0 then write(length(e)) else delete(e,1,1);
until pos(e,s)<>0;
write('Наибольшее число стоящих рядом пробелов в введённой фразе равно ',length(e));
readkey;
end.

P.S. Защитил на отл.