Строки(гласные из двух самых длинных слов)

[BaronVik]

Здравствуйте уважаемые программисты. Мне была задана задача,я её решил,всё работает правильно но вот часть задачи с выводом букв у меня не получается. Заранее благодарен за любую оказанную помощь.

Дан массив не более чем из 10 слов(длинна слов не превышает 80 символов). Символами могут быть только заглавные латинские буквы. Найти и вывести все гласные буквы(без повторений!!!),которые встретились в двух самых длинных словах.

Вот моё решение:

Program asd;
uses crt;
type T_str=array [1..10] of string[80];
T_set=set of char;
var s:T_str;
alf:T_set;
n,i,j:byte;
begin
alf:=['A'..'Z'];
repeat
writeln('Vvedite kol-vo slov ne bolee 10');
readln(n);
if not (n in [1..10]) then
begin
writeln;
writeln('Osibka');
writeln;
end;
until (n in [1..10]);
for i:=1 to n do
begin
write('vvedite',i,'-e slovo ');
readln(s[i]);
for j:=length(s[i]) downto 1 do
if UpCase(s[i,j]) in ['A', 'E', 'I', 'O', 'U'] then
write(s[i,j]);
end;

У меня получается так что я ввожу слово,получаю сразу ответ,а нужно чтобы ответ был в конце программы+нужно без повторений да ещё и только двух самых длинных слов. я попробовал сделать ещё один массив для вывода,но тогда он ничего не выводил. Прошу помогите

[Mad_Cat]

отсортируй(любой сортировкой) массив по возрастанию длины слов и выводи гласные у 2-х последних слов!