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

[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 )
Никак не могу найти свою ошибку.

[Lapp]

По порядку.

1. Зачем ты затираешь первый символ строки пробелом? Используй Insert(' ',tec,1), если уж надо..

2. Никогда ни при каких обстоятельствах не изменяй переменную цикла внутри цикла!

3. Цикл while ты выполняешь по условию tec[i]=' '. И в теле цикла ты проверяешь, не равна ли tec[i] гласной! Как это может произойти по-твоему? Чудесное превращение пробела в гласную?

Вот смотри, примерно так можно делать:

ng:=0;
ns:=0;
s:=s+' ';
for i:=1 to Length(s) do 
  if s[i] in glas then Inc(ng) else if s[i] in sogl then Inc(ns) else if ns+ng>0 then begin
    Inc(nw);
    ns:=0;
    ng:=0;
    WriteLn('Slovo: ',nw,', glasnyh: ',ng,', soglasnyh:',ns)
  end;

Я тут несколько изменил названия переменных, извини..