Pascal.дана строка. подсчитать и вывести количество слов, первое и последнее слово

// PascalABC.NET 3.0, сборка 1088
begin
  var s:=ReadLnString('Введите строку: ');
  var a:=s.ToWords.ToArray;
  Writeln('Слов в строке: ',a.Length);
  Writeln('Первое слово: ',a[0],', последнее: ',a[a.Length-1])
end.

Тестовое решение:
Введите строку: Это    наша     тестовая строчка
Слов в строке: 4
Первое слово: Это, последнее: строчка