Написать программку для подсчета количества слов максимальной длины в тексте. Текст

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadlnString('Введите текст, заканчивающийся точкой:'+NewLine);
  var p:=Pos('.',s); if pgt;0 then s:=s[:p]; // обрезать излишнее
  var a:=s.ToWords;
  var sb:=a.Select(w-gt;w.Length);
  var max:=sb.Max;
  Writeln('Количество слов максимальной длины одинаково ', sb.Where(x-gt;x=max).Count)
end.

Пример
Введите текст, заканчивающийся точкой:
 мать мыла раму маша ела кашу. А это не считается!
Количество слов максимальной длины равно 5