Всем здраствуйте.
Помогите пожалуйсто если кому не сложно
мне для подготовки к Гос экзаменам необходимо написать 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 )
Никак не могу найти свою ошибку.

По порядку.

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;

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

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

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

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


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

Второе. Цикл

while c=' ' do

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

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

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

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.

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

Нет, это - не как я подсказал. ЭТО ты сам придумал. Я использовал ДВА множества - гласные и согласные. А ты - только одно. И конечно ты никогда не заходишь в 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.