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

program junk;
 
var a: string;i,s:byte;
  begin
  writeln('BBeDuTe CTpoKy');
  readln(a);s:=1;
  for i:=1 to length(a) do
  if a[i]=' ' then s:=s+1;
  
  writeln('  C/\oB: ', s);
  readln
  end.

Program transp2;   {Транспонирование относительно побочной диагонали}
Uses crt;
Const n=5;
Var a: array[1..n,1..n] of byte; i,j,p: byte;
Begin
Clrscr;
Randomize;
Writeln('   Исходная матрица:                     Результат:');
For i:=1 to n do
For j:=1 to n do
a[i,j]:=random(10);
For i:=1 to n do
begin
Gotoxy(5,i+1);
For j:=1 to n do
begin
If j<(n-i+1) then Textcolor(cyan)
else if j>(n-i+1) then Textcolor(lightgreen)
else Textcolor(white);
Write(a[i,j],'  ');
end;
Writeln;
end;
For i:=1 to n do
For j:=n-i downto 1 do
begin
p:=a[i,j];
a[i,j]:=a[n-j+1,n-i+1];
a[n-j+1,n-i+1]:=p;
end;
For i:=1 to n do
begin
Gotoxy(38,i+1);
For j:=1 to n do
begin
If j<(n-i+1) then Textcolor(cyan)
else if j>(n-i+1) then Textcolor(lightgreen)
else Textcolor(white);
Write(a[i,j]:3);
end;
Writeln;
end;
End.

m1:=['а','е','ё','и','о','у','ы','э','ю','я'];
m2:=['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
m:=m1+m2;
if s[length(s)] in m then writeln('слово заканчивается на гласную')
else writeln('слово не заканчивается на гласную');