Дан текст на русском языке. Найти количество гласных букв — Pascal(Паскаль)

Program mn_6;

uses crt;

type
  mn = set of char;

const
  glas = ['а', 'е', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];

var
  a: string;
  k, i, s: integer;

begin
  clrscr;
  writeln('введите текст');
  readln(a);
  s := length(a);
  i := 0;
  if a[s] <> '.' then
    a := a + '.';
  repeat
  begin
    inc(i);
    if a[i] in glas then
      k := k + 1;
  end;
  until a[i] = '.';
  writeln(k);
  readln;

end.