Pascal ( доделать)

[Justfeel]

Помогите пожалуйста с задачей
Условие : Дана непустая последовательность слов из строчных русских букв; между
соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном
порядке: все гласные буквы, которые входят в каждое слово.

Нужно сделать так чтоб буквы не повторялись к примеру : Слово Апппаап - должно вывести только "А" и "П"

Вот моя программа :

Program lalala;
Var
s,alf,gls:string;
i,j:integer
c:char;
begin
alf='ёуеыаоэяию';
gls:=' ';
readln(s);
for i:=1 to length(s) do
for j:=1 to length(alf) do
if s[i]=alf[j] then
gls:=gls+s[i];
writeln(gls);
for i:=1 to length(gls) d0
for j:=length(gls) downto 2 do
begin
c:=gls[j];
if gls[j]<gls[j-1] then
begin
gls[j]:=gls[j-1];
gls[j-1]:=c;
end;
end;
writeln(gls);
readln;
end.