Разработать программу с применением строк по своему варианту. Вычисления суммы номеров лист, на которых в слове Х стоят гласные буквы. В программе слова Х, Y, строка или предложения должны вводится с клавиатуры- Pascal(Паскаль)

PROGRAM Slovo;
USES
 Crt;
CONST
 gl:Array[1..10] of Char=('а','е','ё','и','о','у','ы','э','ю','я');
VAR
 i,j:Byte;
 X:String;
 S:Word;
 
BEGIN
ClrScr;S:=0;
 Write('Введите слово: ');
 ReadLn(X);
 For i:=1 to Length(X) do
 Begin
   For j:=1 to 10 do
   Begin
     If X[i]=gl[j] then S:=S+i;
   End;
 End;
 WriteLn('Сумма мест на которых стоят гласные буквы в слове "',X,'" равна: ',S);
 ReadKey;
END.