Исправить программу. Найти самое длинное слово и вывести его на экран - Pascal ABC

Формулировка задачи:

Вводится строка слов, разделенных пробелами. Найти самое длинное слово и вывести его на экран. Случай, когда самых длинных слов может быть несколько, не обрабатывать. Например в строке: sfsf sadfsdf sf 111111111111 -+++++++++++ надо найти самое длинное СЛОВО Написала такую программу:

program Dlina;
var
 s,s1,max:string;
 i:integer;
begin
 readln(s);
 s:= s + ' ';
 while pos(' ',s) > 0 do begin
   s1:= copy(s,1,pos(' ',s));
   delete(s,1,pos(' ',s));
   if length(s1) > length(max) then max:=s1;
 end;
 writeln(max);
end.

Подскажите, пожалуйста! Как ее переделать, чтобы найти именно СЛОВО

Решение задачи: «Исправить программу. Найти самое длинное слово и вывести его на экран»

Листинг программы

    IsWord := True;
    for i := 1 to length(s1) do
      IsWord := IsWord and (s1[i] in Abc);

Объяснение кода листинга программы

Установка флага IsWord в значение True
Цикл от 1 до длины строки s1
Проверка, является ли текущий символ s1[i] буквой (в регистре не учитывается)
Если символ является буквой, то флаг IsWord остается равным True
После цикла проверяется значение флага IsWord
Если значение флага IsWord равно True, то это значит, что мы нашли слово
Выводится на экран самое длинное слово