Определить, на гласную ли букву заканчивается предложение - Free Pascal

Формулировка задачи:

Составьте программу, определяющею, на гласную ли букву заканчивается предложение.

Решение задачи: «Определить, на гласную ли букву заканчивается предложение»

Листинг программы

var s: string;
begin
  writeln('Введите предложение: ');
  read(s);
  if pos(s[length(s)], 'ауоыиэяюёе') > 0 then writeln('Предложение оканчивается на гласную букву')
  else writeln('Предложение не оканчивается на гласную букву')
end.

Объяснение кода листинга программы

Объявлена переменная s типа string.
Выводится сообщение Введите предложение: для того, чтобы пользователь ввёл предложение.
С помощью функции read(s) считывается введённое пользователем предложение и сохраняется в переменной s.
С помощью функции pos(s[length(s)], 'ауоыиэяюёе') проверяется, есть ли в последней гласной букве в предложении. Если функция pos находит совпадение, то возвращает позицию первого вхождения подстроки в строку, иначе возвращает 0.
Если значение функции pos больше 0, то выводится сообщение Предложение оканчивается на гласную букву, иначе выводится сообщение Предложение не оканчивается на гласную букву.