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 Первое слово: Это, последнее: строчка