Вывести из строки гласные буквы и их кол-во
на языке Pascal,прошу помогите !!!!!

Uses CRT;Var a:set of char; s:string; j:char; i,k:integer;begin writeln(Введите строку: );readln(s);a:=[];k:=0;for i:=1 to length(s) do if s[i] in [А,а,Е,е,Ё,ё,О,о,У,у,Ы,ы,Э,э,Ю,ю,Я,я] then  begin    a:=a+[s[i]];    k:=k+1;  end;write(Гласные буквы, присутствующие в строке: );for j:=А to я do if j in a then write(j:2); writeln; write (Количество гласных букв: ,k);end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.