Здравствуйте!Срочно нужна помощь....

Здравствуйте!Срочно нужна помощь. Необходимо написать программу на Паскале: Подсчитайте количество гласных встроке.

 

Const gl=['а','е','ё','и','о','у','ы','э','ю','я',
         'А','Е','Ё','И','О','У','ы','Э','Ю','Я'];
Var s:string[70];
Function Glas(s:string):byte;
Var i,k:byte;
Begin
    k:=0;
    For i:=1 to Length(s) do
     if s in gl then inc(k);
    Glas:=k;
End;
Procedure Slovo(s:string[70]);
Var s1:string;
Begin
    s:=s+' ';
    While Pos(' ',s)<>0 do
     Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if (s1<>' ')and(s1<>'') then writeln(s1,' кол-во гласных ',Glas(s1);
     End;
End;
Begin