Найдите в приведённом предложении самое длинное слово и выведите его на экран.

Дано предложение:

Звуки вальса особенно волнуют того, кто не умеет танцевать.

Найдите в приведённом предложении самое длинное слово и выведите его на экран. При решении задачи необходимо использовать операторы для работы со строковой информацией. 

 

Программа:

 

Program рrogr1;

var T,S,MaxS: string;    

begin  

 write('Введите текст: ');

 readln(T); 

 while (pos(',',T)>0) OR (pos('.',T)>0) do 

  begin

   delete(T,pos(',',T),1);

   delete(T,pos('.',T),1); 

  end;

 T:=T+' ';

 while (pos(' ',T)>0) do

  begin 

   S:=copy(T,1,pos(' ',T)-1);   

   delete(T,1,pos(' ',T));   

   if Length(S)>Length(MaxS) then MaxS:=S;

  end;

 writeln('Самое длинное слово: ',MaxS);

end.