{Файл: prog7_1.pas
Задача:
 Словом в строке называется последовательность букв, не 
 прерываемая другими символами. Дана строка символов.
 Найти в строке самое длинное слово.
Автор:
  
Дата:
  03,11,2015}
 
const
  Letter : set of char = ['a'..'z', 'а'..'я']; {Множество букв}
var
  s : string;     {Входная строка}
  Wrd, WrdMax : string;  {Слово, максимальное слово}
  i, L : integer;
  
begin
  {Ввод строки}
  writeln('Введите строку');
  readln(s);

  {Поиск в строке самогог длинного слова}
  L:=length(s);  {линна входной строки}
  WrdMax := '';  {Самое длинное слово}
  i:=1;         {Счетчик символов для прохода по строке}
  
  while i<=L do   {Пока не закончилась строка}
  begin
    {Пропуск символов, не являющихзся буквами}
    while (i<=L) and not (s[i] in Letter) do
      inc(i);
      
    {Выделение из строки очередного слова в WRD}
    Wrd:='';
    while (i<=L) and (s[i] in Letter) do
    begin
      Wrd:= Wrd+s[i];
      inc(i);
    end;
    
  {Проверка выделенного слова Wrd на максимальную длинну}
  If length(Wrd) > length (WrdMax) then
    WrdMax :=Wrd;
 end;
 
 {Вывод ответа}
 If WrdMax <> '' then
  writeln('Самое длинное слово -', WrdMax)
 else
  writeln ('В строке нет слов...')
end.