Определить количество слов с удвоенной гласной в конце

const wove: set of char = ['A', 'E', 'U', 'O', 'I',
                           'a', 'e', 'u', 'o', 'i',
                           'А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я',
                           'а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
      delimiter: set of char = [' ', '.', ':', ',', ';', '?', '!',
                           '"', '''', '(', ')', '[', ']', '{', '}'];
var s: string;
    i, k: integer;
begin
  k := 0;
  writeln('Enter the string, maybe, terminating in a exclamation mark:');
  readln(s);
  s := s + ' ';
  for i := 1 to length(s) - 2
    do begin
      if (s[i] in wove) and (s[i] = s[i + 1]) and (s[i + 2] in delimiter)
        then inc(k);
      if s[i + 2] = '!' then break
    end;
  write('Number of words from a double vowel at the end = ', k);
  readln
end.