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

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

[Lichnost3D]

Блин.....
не получается...
вот исправил как вы подсказали

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

работает, только считает гласные для всей стороки а не для каждого слова

[Lapp]

вот исправил как вы подсказали

Нет, это - не как я подсказал. ЭТО ты сам придумал. Я использовал ДВА множества - гласные и согласные. А ты - только одно. И конечно ты никогда не заходишь в else, если у тебя сначала два противоположных случая по if.


Добавлено через 5 мин.
Если ты не хочешь использовать множество согласных, то делай так:

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]=' ')and(ns+ng>0) then begin
    ns:=0;
    ng:=0;
    WriteLn('glasnyh: ',ng,', soglasnyh:',ns)
  end;

Я тут также убрал nw.