Написать программу нахождения количества гласных в строке.

const sn = [\'А\', \'а\', \'Е\', \'е\', \'Ё\', \'ё\', \'И\', \'и\', \'О\', \'о\', \'У\', \'у\', \'Ы\', \'ы\', \'Э\', \'э\', \'Ю\', \'ю\', \'Я\', \'я\']; st = [\' \', \',\', \'.\', \'!\', \'?\', \':\', \';\'];

var s, sl: string; i, j, k: byte;

begin writeln ( \'Введите строку: \' ); readln ( s ); if not ( s [ length ( s ) ] in st ) then s := s + \' \'; sl := \'\';j := 0; k := 0; for i := 1 to length ( s ) do begin if s [ i ] in sn then inc ( k ); if not ( s [ i ] in st ) then sl := sl + s [ i ] else begin if length ( sl ) > 0 then inc ( j ); sl := \'\'; end; end; writeln ( \'Количество гласных букв в ведённой строке: \', k ); readln;end.