В исходной строке а$ определить все слова, отличные от последнего слова. Вывести эти слова в столбик.

Делим строку на подстроки и загоняем каждую подстроку в массив. Разделителями являются знаки препинания и пробелы. Берем последний элемент массива и прогоняем в цикле сравнение со всеми другими элементами. Если строки не равны, то вывести слово и перенос строки, если равны, то нет.