Помогите найти мою ошибку!, Пожалуйсто помогите найти ошибкув моей программе. Опции

[Lichnost3D]

Всем здраствуйте.
Помогите пожалуйсто если кому не сложно
мне для подготовки к Гос экзаменам необходимо написать 30 программ. Большинство я сделал ,а вот с прогами где необходима работа со сторками ,я не в ладах.
Вот задача
Ввести строку символов длиной не более 50. Для каждого слова заданной строки (на русском) указать долю согласных. Определить слово, в котором доля согласных максимальна.

Вот моя программа

program z9;
uses crt;
const
glas=['a','e','u','i','o'];
var tec : string[50];
    l,i,n : longint;
    kolg:integer;
 begin
   clrscr;
   write('Vvedite stroku:');
   readln(tec);
   tec[1]:=' ';
   for i:=1 to length(tec) do
   begin
    if ((tec[i]=' ')and(tec[i+1]<>' ')) then {esli eto slovo to}
     begin
     inc(i);
     kolg:=0;
     while tec[i]=' ' do
        begin
        if (tec[i] in glas) then kolg:=kolg+1;
        Write(tec[i]);
        i:=i+1;
        end;
     Write('  - ',kolg,' Kolichestvo glasnih');
     Writeln;
     end;
   end;
   readkey;
 end.

Программа выдаёт слова, но не выдаёт количество гласных букв напротив каждого.(точнее выдаёт 0 )
Никак не могу найти свою ошибку.