Помогите пожалуйста написать программу в паскале авс

Question

Посчитать в строке количество русских гласных букв. Вывести все русские гласные буквы строки в алфавитном порядке.

Constantin · Accepted Answer

k:=0; 
for n:=1 to length(stroka) do 
if stroka[n] in ['а','у','е','э','о','ы','я','и','ю'] then 
begin 
inc(k); 
bukva[k]:=slovo[n]; 
end; 
 
k - и будет количество 
И дальше обычная сортировка массива bukva

Александр · Answer

const 
 glas = 'аеёиоуэюя'; 
var 
 S : set of char; 
 I : Integer; 
 Str : String; 
begin 
 Write('Введите строку: '); ReadLn(Str); 
 S := []; 
 for I := 1 to Str.Length do 
 if Pos(Str[ i ], glas) > 0 then 
 S := S + [Str[ i ]]; 
 for I := 1 to glas.Length do 
 if glas[ i ] in S then 
 Write(#32, glas[ i ]); 
 WriteLn; 
end.

Linar · Answer

Никто не хочет за тебя решать. 
Вот тебе решение первой задачи на JS: 
input_string = 'Строка для подсчёта'; 
letters = input_string.match(/[аиоуыэеёюя] /ig); 
alert('Количество: ' + letters.length); 
Я знаю, что ты не сможешь перевести это в паскаль, поэтому и делюсь решением, потому что ты или сам должен решить или должен получить соответствующую оценку за то, что не желал учиться. А моё решение всего лишь показывает, что задача не непосильная