Найти в строке самое длинное слово

program lword;
 
var s, w, p: string;
 
begin
  writeln('Enter string:');
  readln(s);
  s := s + ' ';
  p := '';
  repeat
    w := copy(s, 1, pos(' ', s));
    if length(w) > length(p) then p := w;
    delete(s, 1, pos(' ', s))
  until length(s) = 0;
  if p <> ' ' then writeln('Longest word: ', p)
              else writeln('Words not found');
  readln
end.

program lword; //имя программы
 
//объявление переменных
var s, w, p: string; //входная строка, буфер слова, выходное слово
 
//начало программы
begin
  writeln('Enter string:'); //печать сообщения "введите строку"
  readln(s); //ввод строки
 
 
  s := s + ' '; //добавление пробела в конце строки для упрощения алгоритма,
                //теперь можно считать словом что угодно, оканчивающееся пробелом
  p := ''; //очищаем выходное слово
 
 
  //цикл поиска наидлиннейшего слова
  repeat //начало цикла
    w := copy(s, 1, pos(' ', s)); //копируем в буфер часть входной строки, 
                                  //начиная с первого символа и кончая пробелом,
                                  //то есть текущее слово
    if length(w) > length(p) then p := w; //если слово в буфере длиннее выходного слова,
                                          //переписываем буфер на место выходного слова
    delete(s, 1, pos(' ', s)) //удаляем уже проверенное слово из входной строки
  until length(s) = 0; //повторяем, пока длина входной строки не станет равной 0,
                       //то есть, пока не кончатся все слова
  //конец цикла поиска наидлиннейшего слова
 
 
  if p <> ' ' then writeln('Longest word: ', p) //если наидлиннейшим словом не является 
                                                //пробел, который мы же и добавили,
                                                //печатаем: "наидлиннейшее слово"
                                                //и само слово
              else writeln('Words not found');  //иначе печатаем "слова не найдены"
 
 
  readln //ожидаем нажатия клавиши <Enter> перед выходом из программы
end.
//конец программы