Помогите с процедурой.

[Gix]

При помощи процедур написать программу. При вводе слова с клавиатуры считать количество гласных букв(английских) в нём.
Вот моя программа. Но она сделана без процедур. Помогите переписать ее с помощью процедур.

program Project1; 
{$APPTYPE CONSOLE} 
var a, b:string; 
 c, d:integer; 
begin
C:=0;
writeln('vvedite slovo'); 
readln(a); 
for d:=1 to length(a) do 
if (a[d]='a') or (a[d]='e') or (a[d]='i')or (a[d]='y') or(a[d]='o') or (a[d]='u') 
then 
c:=c+1; 
writeln('kol-vo glasnih bukov sostovlyaet ',c); 
readln; 
end.

[CMY_3]

procedure count(a : string);
var
c, d:integer;
begin
  C:=0;
  for d:=1 to length(a) do
  if (a[d]='a') or (a[d]='e') or (a[d]='i')or (a[d]='y') or(a[d]='o') or (a[d]='u')
  then
  c:=c+1;
  writeln('kol-vo glasnih bukov sostovlyaet ',c);
end;

[Arigato]

Такие задачи лучше решать с использованием множеств:

procedure glas_count(s: string; var cnt: integer);
var
  i: integer;
begin
  cnt:=0;
  for i:=1 to length(s) do
    if s[i] in ['e','u','i','o','a','E','U','I','O','A']
      then inc(cnt);
end;

var
  s: string;
  c: integer;

begin
  readln(s);
  glas_count(s,c);
  writeln('Glasnyh: ',c);
  readln;
end.