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

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


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

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