Для заданого предложения указать долю согласных., Задание - необходимо регить на PASCAL Опции

[flashg]

Для каждого слова заданного предложения указать долю согласных. Определить слово в котором доля согласных максимальна.

Задание - необходимо регить на PASCAL на TYRBO или BORLAND.

Я нашёл pas фаил содержащий код программы для нахождения одной буквы в строке

я его немного переделал и теперь он находит две буквы. Но прога сразу увеличелась на 50%

а также у меня нет кода (я не знаю как его прописать) для второй части задания.

Определить слово в котором доля согласных максимальна.

ПОПРАКА

:o что тут не то с текстом
Изначальный код был такой

Код

PROGRAM PR3;
var s1:string[20];
n,q:integer;
BEGIN
   q:=-1;
   writeln('Введите слово (до 20 букв)');
   read(s1);
   n:=pos('А',s1);
   if n>0 then
   BEGIN
       repeat
       n:=pos('А',s1);
       q:=q+1;
       delete(s1,n,1);
       until n=0;
   END
else q:=0;
write('Кол-во букв А =',q);
END.

я решил чуть чуть помеять т.е. большую А на маленькую а - и уже ничего оно верно не считает

Код

PROGRAM PR3;
var s1:string[20];
n,q:integer;
BEGIN
   q:=-1;
   writeln('Введите слово (до 20 букв)');
   read(s1);
   n:=pos('а',s1);
   if n>0 then
   BEGIN
       repeat
       n:=pos('А',s1);
       q:=q+1;
       delete(s1,n,1);
       until n=0;
   END
else q:=0;
write('Кол-во букв а =',q);
END.

а я так надеялся что введу вот такой код

Код

PROGRAM PR3;
var b,g:string[200];
n,q,m,r:integer;
BEGIN
   q:=-1;
   r:=-1;
   writeln('Введите слово');
   read(b);
   read(g);
   n:=pos('г',g);
   m:=pos('б',b);
   if n>0 then

   BEGIN
       repeat
       n:=pos('г',g);
       q:=q+1;
       delete(g,n,1);
       until n=0;
       end
       else q:=0;

   if m>0 then
    BEGIN
    repeat
      m:=pos('б',b);
      r:=r+1;
 delete(b,n,1);
       until m=0;
       end
    else r:=0;

write('Кол-во букв б =',r);
write('Кол-во букв г =',q);
END.

и забив те буквы что мне надо прога мне найдёт те буквы что встречаются и укажет их - и тут 0.
хотя буквы б тут находит а буквы г - прописывает 0

В чём глюк ?

[flashg]

Да иещё ранее в посте №6 первый код ты мне дал я его рассширел но есть маленькое но

uses crt;
   var
   s:string;
   v_count, b_count, g_count, d_count, j_count, z_count, i:integer;
   k_count, l_count, m_count, n_count, p_count, r_count:integer;
   s_count, t_count, f_count, h_count, ch_count, sh_count, sch_count:integer;
   c_count:integer;
   Begin
   clrscr;
   v_count:=0; b_count:=0; g_count:=0; d_count:=0; j_count:=0; z_count:=0;
   k_count:=0; l_count:=0; m_count:=0; n_count:=0; p_count:=0; r_count:=0;
   s_count:=0; t_count:=0; f_count:=0; h_count:=0; c_count:=0; ch_count:=0;
   sh_count:=0; sch_count:=0; 
   write('s='); readln(s);
   
   
if (pos('б',s)<>0) then
for i:=1 to length(s) do
   
   
   case s[i] of
    'в': inc(v_count);				
      'б': inc(b_count);
      'г': inc(g_count);
      'д': inc(d_count);
      'ж': inc(j_count);
      'з': inc(z_count);
      'к': inc(k_count);
      'л': inc(l_count);
      'м': inc(m_count);
      'н': inc(n_count);
      'п': inc(p_count);
      'р': inc(r_count);
      'с': inc(s_count);
      'т': inc(t_count);
      'ф': inc(f_count);
      'х': inc(h_count);
      'ц': inc(c_count);
      'ч': inc(ch_count);
      'ш': inc(sh_count); 
      'щ': inc(sch_count);



  end;
   writeln('б : ', b_count);
   writeln('в : ', v_count);
   writeln('г : ', g_count);
   writeln('д : ', d_count);
   writeln('ж : ', j_count);
   writeln('з : ', z_count);
   writeln('к : ', k_count);
   writeln('л : ', l_count);
   writeln('м : ', m_count);
   writeln('н : ', n_count);
   writeln('п : ', p_count);
   writeln('р : ', r_count);
   writeln('с : ', s_count);
   writeln('т : ', t_count);
   writeln('ф : ', f_count);
   writeln('х : ', h_count);
   writeln('ц : ', c_count);
   writeln('ч : ', ch_count);
  writeln('ш : ', sh_count);
  writeln('щ : ', sch_count);
 
 readln;
End.

достаточно ввести только этого и он всё посчитает т.е. не надо вводить OR вот что я заметил.