В строке найти все слова начинающиеся с латинской гласной буквы — Pascal(Паскаль)

uses
  crt;
const
  a: set of char = ['a','A','e','E','i','I','o','O','u','U'];
var
  i,m: integer;
  st,word: string;
begin
  clrscr;
  write('Ââåäèòå ñòðîêó: ');
  readln(st);
  i:=1;
  while i<=length(st) do
  begin
    while (st[i] = ' ') and (i<=length(st)) do
      inc(i);
    m:=i;
    while (st[i] <> ' ') and (i<=length(st)) do
      inc(i);
    word:=copy(st,m,i-m);
    if word[1] in a then
      writeln(word);
  end;
  readkey;
end.