Подсчитать количество гласных и согласных букв в каждом слове

Const gl=['а','е','ё','и','о','у','ы','э','ю','я',
         'А','Е','Ё','И','О','У','ы','Э','Ю','Я'];
      sog=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ',
            'Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ'];
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[i] in gl then inc(k);
    Glas:=k;
End;
Function Sogl(s:string):byte;
Var i,k:byte;
Begin
    k:=0;
    For i:=1 to Length(s) do
     if s[i] in sog then inc(k);
    Sogl:=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),' кол-во согласных ',Sogl(s1));
     End;
End;
Begin
    write('Введите строку: ');readln(s);
    Slovo(s);
    readln;
End.