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

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadlnString('Введите слово:').ToLower;
  var c:=ReadlnChar('Введите буковку:').ToLower;
  if Pos(s[1],'аеёиоуыэюя')gt;0 then Writeln('Слово начинается с гласной')
  else Writeln('Слово начинается не с гласной');
  If s[1]=c then Writeln('Слово начинается с обозначенной буковкы')
  else Writeln('Слово не начинается с обозначенной буковкы')
end.

Примеры
Введите слово: Арбуз
Введите буковку: к
Слово начинается с гласной
Слово не начинается с указанной буковкы

Введите слово: Барабан
Введите буковку: б
Слово начинается не с гласной
Слово начинается с обозначенной буковкы