Работа со строками

Здравствуйте господа. Пришла сессия и надо решать лабы. Две сделал, а две не могу. Вод задание.

Задание1(использование множественного типа данных)
В алфавитном порядке напечатать (по разу) все строчные русские гласные буквы (*), входящие в этот текст более трёх раз.

Задание2(стандартный модуль string)
Дана последовательность, состоящая из 10 слов. Перевернуть те слова последовательности, в которых последняя буква слова вхлдит в гнего еще раз. Вывести результат.

Ко 2 задаче написал вот что, но выдаёт какой-то бред.
uses crt;
var
a:string[100];
b:string[100];
v:string[100];
i,j,l:integer;
f:char;
begin
clrscr;
f:=',';
a:='саша, маша, петя,';
for i:=1 to length(a) do begin
if a=f then
begin
b:=copy(a,1,i-1);
delete(a,1,i);

for j:=1 to length(b)-1 do
begin
l:=length(b);
if b[l]=b[j] then
begin
for l:=length(b) downto 1 do
begin
write(b[l]);
end;
end;
write(' ');
end;
{delete(a,1,i);}
end;
end;
readln;
end.
Огромная просьба если кто знает откликнуться по быстрее(можно ссылки на похожие задачи или на полезную информацию), а то горю. Прошу прощения за наглость.