В тексте найти слова, начинающиеся и оканчивающиеся на гласные буквы - Pascal

const rz=[' ','.',',','-','?','!'];//символы, разделители слов, можно добавить
      gl=['A','E','I','O','U']; //гласные буквы английского алфавита
//........................................................
//читаем строку из файла
s:=' '+s;//добавим пробел в начало
n:=length(s);
i:=2;
f:=0;
while i<=n do
if not(s[i] in rz)and (s[i-1] in rz) then//если не разделитель
                                         //и перед ним разделитель, то начало слова*
 begin
  k:=i;
  s1:='';
  while (k<=n) and not(s[k] in rz) do //пока не разделитель и не конец строки
   begin
    s1:=s1+s[k];
    k:=k+1;
   end;
  if (upcase(s1[1])in gl)and(upcase(s1[length(s1)])in gl) then
   begin
    writeln(s1);
    k:=1;
   end;
  i:=i+length(s1);
 end
else i:=i+1;{пропускаем разделители}
writeln(' ');
if f=0 then write('Таких слов нет');