Напечатать первое и предпоследнее слова из введенного предложения - PascalABC.NET

Формулировка задачи:

С клавиатуры ввести предложение, записанное латинскими буквами. Напечатать первое и предпоследнее слова из введенного предложения.

Решение задачи: «Напечатать первое и предпоследнее слова из введенного предложения»

Листинг программы

var
  s:array of string;
begin
  s:=readstring('Введите строку:').Split(' .,:;!?'.ToCharArray,System.StringSplitOptions.RemoveEmptyEntries).ToArray();
  if Length(s)<2 then writeln('В строке меньше двух слов') else
    writeln('первое слово: "',s[0]+'" предпоследнее слово: "'+s[length(s)-2]+'"');
end.

Объяснение кода листинга программы

Объявляется переменная s типа array of string.
Ввод строки с помощью функции readstring.
Разделение введенной строки на массив строк с помощью метода Split и константы System.StringSplitOptions.RemoveEmptyEntries.
Проверка длины массива s. Если меньше двух элементов, то выводится сообщение В строке меньше двух слов.
Вывод на экран первого и предпоследнего слова из массива s.