Help! Pascal!

[светлана]

Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные латинские гласные буквы (a, e, i, o, u), входящие в этот текст.Помогите плиззз!

[AVer]

Посимвольно забиваешь текст в массив с проверкой повторений. Потом сортируешь массив условием "если код символа с №I больше чем код символа №I+1, тогда поменять местами". Выводишь массив на экран.

[светлана]

Так сложно написать одну задачку бедной девушке!

[AVer]

Сообщение от светлана

Так сложно написать одну задачку бедной девушке!

Я думаю, такой подход не приветствуется... Девушка или не девушка, а вот так вывалить задание и сразу получить полный ответ получается не всегда...

Var S:String;
    K,I,N:Integer;
    A:Array[1..5] of Char;
    M:Set of Char;
    Z:Boolean;
    C:Char;
Begin
M:=['a','e','i','o','u'];
N:=1;
ReadLn(S);
For i:=1 to length(S) do
if s[i] in M then
begin
Z:=False;
For k:=1 to 5 do
if A[K]=S[i] then Z:=true;
If not Z then
begin
A[N]:=S[i];
Inc(N);
end;
end;
For i:=1 to N-2 do
if Ord(A[i]) > Ord(A[i+1]) then
begin
C:=A[i];
A[i]:=A[i+1];
A[i+1]:=C;
end;
i:=1;
for i:=1 to n-1 do
begin
Write(A[i]:2);
End;
Readln;
end.