Дона строка.Определить в ней длину самого короткого и самого длинноватого слова?(Паскаль)

// PascalABC.NET 3.3

begin
  var s:=ReadlnString;
  var a:=s.ToWords.Select(w-gt;length(w));
  writeln('Длина самого короткого слова: ',a.Min,
         ', длина самого длинноватого слова: ',a.Max);
end.

Пример:
Найти в ней длину самого краткого и самого длинноватого слова
Длина самого краткого слова: 1, длина самого длинного слова: 10