Распечатать самое длинное слово начинающееся на гласную букву.

uses wincrt;
var
    s : string;
   s1 : array [1..20] of string[20];
    j : byte;
   mn, mn1 : set of char;
 
   i, n, k : integer;
  max : byte;
  s_max : string[30];
 
begin
 writeln('vvedite stroku :'); readln(s);
 
   n := length(s);
   s := s + ' ';
  mn := ['.' , ',' , '-' , ';' , '!' , '?' , ':' , ' ' ];
 mn1 := ['A'..'Z','А'..'Я'];
   j := 1;
 
 for i:=1 to n do
     begin
          if (s[i] in mn1)
             then
                 for k:=i to i+100 do
                     begin
                         s1[j] := s1[j] + s[k];
                         if s[k] in mn
                            then
                                break;
                     end;
          if s[i] in mn
             then
                 inc(j);
     end;
 
 for i:=1 to j-1 do
   if length(s1[i]) > max
      then
         begin
             max := length(s1[i]);
             s_max := s1[i];
         end;
 
 writeln('slovo : ', s_max);
 
end.