Строковые переменные

[NightFire]

нужна полсказка в задаче на эту тему...
Задача.
Вывести статистику вхождения гласных букв в строку.

в Паскале надо,желательно не заумно..я в нем не силен...кто может окажите услугу

[Plague]

const d='аеиоуыэюя';
var s:string;
    m:array[1..9] of integer;
    i:integer;
begin
  readln(s);
  for i:=1 to length(s) do 
  if pos(s[i],d)>0 then 
  inc(m[pos(s[i],d)]);
  for i:=1 to 9 do
  writeln('Буква "',d[i],'" встречается ',m[i],' раз(а)');
  end.