проверить, упорядочены ли гласные буквы по алфавиту?

const nmax=10000000;
      alf = ['а'..'я','А'..'Я','ё','Ё'];
      glasn = ['А','а','Е','е','О','о','У',
      'у','Ы','ы','И','и','Ю','ю','Э','э','Я','я','Ё','ё'];
type stroka = array [1..nmax] of string;
     dlina = array [1..nmax] of integer;
var
 n,i:integer;
 a:stroka;
 len:dlina;
 
procedure vvod(var a:stroka; var n:integer);
var
 i:integer;
 s,st:string;
begin
 reset(input,'input.txt');
 n:=0;
  while not seekeof do
   begin
    read(s);
    s:=s+' ';
    st:='';
     for i:=1 to length(s) do
      if s[i] in alf then
       st:=st+s[i] else if st<>'' then
        begin
         inc(n);
         a[n]:=st;
         st:='';
         len[n]:=length(a[n]);
        end;
   end;
end;
 
procedure QSort(first,last:integer; var m:stroka; var l:dlina);
var
 i,j,x,c:integer;
 t:string;
begin
 i:=first;
 j:=last;
 x:=l[(first+last) div 2];
  repeat
   while l[i]>x do inc(i);
   while x>l[j] do dec(j);
    if i<=j then
     begin
      c:=l[i]; l[i]:=l[j]; l[j]:=c;
      t:=m[i]; m[i]:=m[j]; m[j]:=t;
      inc(i); dec(j);
     end;
   until i>j;
 if first<j then QSort(first,j,m,l);
 if i<last then QSort(i,last,m,l);
end;
 
begin
 rewrite(output,'output.txt');
 vvod(a,n);
 QSort(1,n,a,len);
 for i:=1 to 2000 do
 writeln(a[i],' ','(',len[i],')',' ');
end.

.....
function ololo(s:string):boolean;
var i,k:integer;
begin
  ololo:=false;
  k:=length(s);
   for i:=1 to k do
     if (s[i] in glasn) and (s[i+1] in glasn) then
       if (s[i]>s[i+1]) then
       ololo:=true else
       ololo:=false;
end;
....
 vvod(a,n);
 QSort(1,n,a,len);
 for i:=1 to 2000 do
 begin
  if ololo(a[i]) then
  writeln(a[i],' ','(',len[i],')',' ');
....