Как вывести слова в алфавитном порядке в моем коде?

Question

[kan3k1k3n]

вот мой код, выводящий слово, если в нем есть 3 подряд идущие гласные буквы:

const a = ['я', 'ю', 'э', 'у', 'о', 'и', 'ё', 'е', 'а'];
      b = [' ','.',',',';',':','!','?'];
var i,j,q:byte;
    s1,s2:string;
begin
s1:=s1+' ';
s2:='';
write('строка: ');
readln(s1);
for i:=1 to length(s1) do
  if not (s1[i] in b) then s2:=s2+s1[i] else
    if length(s2)>0 then
      begin
      q:=0;
      for j:=1 to length(s2)-1 do
        if (s2[j] in a) and (s2[j+1] in a) and (s2[j+2] in a) then inc(q);
        if q>0 then writeln('новая строка: ',s2,' ');
        s2:='';
      end;
end.

нужно вывести эти слова в алфавитном порядке

Comments

[kalapanga]

Код не рабочий. В цикле при максимальном значении j за значением s2[j+2] программа полезет за пределы строки.

Answer 1

[Hemul GM]

В массив их все помести, потом отсортируй массив и выведи

Comments

[kan3k1k3n]

В массив их все помести

их - это кого?

[Hemul GM]

kan3k1k3n, слова, которые ты нашёл помещай в массив, а потом отсортируй