// PascalABC.NET 3.0, сборка 1088
begin
var s:=ReadLines('1.txt').ToArray;
var s1:=s[0].ToString;
var s2:string:='';
for var i:=1 to s1.Length do s2+=LowCase(s1[i]);
var s3:=s2.Where(x->x in ['а','е','и','о','у','ы','э','ю','я']);
var dic:=new Dictionary;
foreach var c in s3 do dic[c]:=dic.Get(c)+1;
dic.Print(NewLine);
end.
Результат выполнения программы (абзац в файле 1.txt)
(о,81)
(а,46)
(я,13)
(и,41)
(е,67)
(у,22)
(ы,18)
(ю,12)
(э,3)