В заданном тексте вывести третье слово - Free Pascal

В заданном тексте вывести третье слово.

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

writeln(ExtractWord(3, s, [' '])); // разделителей насыпать по вкусу

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

Заголовок программы writeln(ExtractWord(3, s, [' ']));
Переменная s содержит исходный текст
Функция ExtractWord принимает три аргумента: номер слова, исходный текст и список разделителей
Номер слова (3) указывает, что нужно извлечь третье слово в тексте
Исходный текст (s) передается в функцию ExtractWord
Список разделителей ([' ']) передается в функцию ExtractWord
Функция ExtractWord извлекает указанное слово из текста, используя указанный список разделителей
Результат работы функции ExtractWord выводится на экран с помощью функции writeln
Результатом выполнения программы будет вывод третьего слова из исходного текста, отделенного пробелами от других слов