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

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 ) gt; 0 then
inc ( j );
sl := ;
end;
end;
writeln ( Количество гласных букв в ведённой строке: , k );
readln;
end.