Например, можно так (в старом стиле, простенько):

(если что, комментарии к строкам можете удалить (всё после символов // в строках)

var

s: string;

a: array of string;

n: integer := 2; // задаём номер нужного слова

begin

read(s); // ввод строки

a := s.Split; // разбиваем строку на массив строк со словами

write(a[n-1]) // считаем индекс элемента массива и выводим элемент

end.