Рядки. Програмування.

Вводится строка слов, разделенных пробелами. Найти самое длинное слово и вывести его на экран. Случай, когда самых длинных слов может быть несколько, не обрабатывать.

one two three four five six seven
three

var

S : string =' ttt cc ccct';

I,N,K,dlin,id: integer;

begin

S:=S+'  ';//добавляем пробелы 

N:=Length (S);

//Write (N);

K:=0;

dlin:=0;

id:=0;

for I:=1 to N do begin

  if (S[i]<>' ') then

  begin

    K:=K+1;

  end else if K>dlin then

  begin

    dlin:=K;

    id:=i;

    K:=0;

  end else K:=0;

end; 

Write ({' ',dlin, ' ',} Copy (S,id-(dlin),dlin));  

end.