В исходном тексте вывести на экран слово, содержащее максимальное количество символов(букв). Разделитель пробел

[dvpvitas]

В исходном тексте вывести на экран слово, содержащее максимальное количество символов(букв). Разделитель пробел

[Stilet]

Разделение строки на слова: http://www.programmersforum.ru/showt...369#post398369
можешь прямо в цикле, где inc(count); проверку делать на длину слова.

[newerow1989]

var s,s1:string;
    i,i0,l:integer;
begin
   Readln(s);
   s:=s+' ';
   s1:='';
   i0:=0;
   For i:=1 to Length(s) do
      If s[i]=' ' then
      begin
         l:=i-i0-1;
         If l>Length(s1) then
            s1:=Copy(s,i0+1,l);
         i0:=i;
      end;
   Writeln(s1);
   Readln;
end.

Сойдет?

[dvpvitas]

спасибо, мастер просто!!!

[newerow1989]

Пожалуйста!

[Serge_Bliznykov]

Женя, мне одному кажется, что это код не очень надёжный?
подскажите, что должна вывести программа (и что она реально выведет)
для таких строк (вводить без кавычек, только то, что внутри):

'      m'

или для строки:

'm m m'

p.s. извините за занудство...

[newerow1989]

Исправил. Немножно недоглядел!