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

[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]

простите а "nw" это строковая переменая, содержащая в себе слово которое мы и проверяем в цикле на количество гласных?
Или что это? что то я непойму
Я через цикл while нахожу конец слова, тобиш если i =" " то выхожу из цикла.

Извиняюсь если говорю глупости...

Сообщение отредактировано: Lichnost3D - 14.05.2009 22:41

[Lapp]

простите а "nw" это строковая переменая, содержащая в себе слово которое мы и проверяем в цикле на количество гласных?
Или что это? что то я непойму

Нет..))
Это просто номер слова. Я вставил для полноты картины)). Если не нужно - просто выкини все ее вхождения.


Добавлено через 8 мин.

Я через цикл while нахожу конец слова, тобиш если i =" " то выхожу из цикла.

Вообще-то для этого не нужно отдельного цикла (см. мой фрагмент кода). Но ты можешь его использовать, пожалуйста. Но не изменяй в нем i! Это нельзя. Пойми. Может, тут это и пройдет, но в ьудущем у тебя будет много проблем с таким стилем программирования. Не говоря уже о том, что более поздние компиляторы этого просто не пропустят. Если очень нужно - сделай внешний цикл тоже while, а не for - и тогда делай с i, все, что хочешь.

Второе. Цикл

while c=' ' do

будет выполняться пока c=' ', а не до тех пор, когда с станет равен пробелу. Если тебе нужно второй способ - используй цикл repeat until .

Но, повторяю, тут внутренний цикл совсем не нужен.