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

// PascalABC.NET 3.3

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

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