строковые переменные

[Serious]

Короче преподу сдавал лабы, она блин мне говорит что я не прав.
Посмотрите пожалуйста, во вложении вся информация.

доп информация.

Лабораторная работа № 2
Тема задания Изучение строкового типа данных. Для заданного преподавателем варианта составить соответствующую программу на языке Паскаль. Программа должна содержать все необходимые комментарии в соответствии с принятыми правилами. Предусмотреть простейший вывод на экран входных и выходных данных.
Задача:
Дана строка символов S, состоящая из латинских букв. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Преобразовать исходную строку в строки S1 и S2 в соответствии с пунктами 1 и 2 (п.1, п.2) заданий № 1 - 30. Если какая-либо из итоговых строк окажется пустой, выводить соответствующее сообщение.

[Namolem]

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

на строке

qwe1 qwe2 qwe3 qwe qwe qwe

выводит, что строка пуста.

код оформлен без отступов, комментариев. Мы должны в этом разобраться?

[Serious]

Там почему-то, когда первый проход. затераеться q.
Даже блин странно как-то. Может кто может переписать код?

[Serious]

Народ проведите тесты программы во вложении
она должна вот что делать
п.1. - Напечатать все слова, отличные от последнего слова, в которые входят те же гласные буквы, что и в первое слово.
п.2. - Напечатать все слова, отличные от последнего слова, удаляя все согласные буквы, которые уже встречались раньше.

те кто проводили и тесты были удачными если что выложите входящую строку. Не удачные тоже вылаживайте плиз
Входящие данные
s (сторка из слов)
выходящие данные
п.1.
п.2.