Ребят, SOS! 2 денек теснее маюсь не могу составить программку, что

Изредка с Вами соглашаюсь, когда Вы ругаете учителей. Вероятно, однако, в данном случае слово "глупец" очень подходит. Желая, есть вероятность, что Valeria что-то не так сообразила или расслышала и учитель тут ни при чем. )

Нет, мы делаем все только с блок схамами)

Это, окончательно, ужасный вариант с "много Copy", но если надобно ...
Program primer4; 
var s:string; i,k:integer; 
begin 
writeln('подсчет количества глухих согласных в тексте'); 
writeln('введите текст'); 
readln(s); 
k:=0; 
for i:=1 to length(s) do 
 if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
    (copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
    (copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
  then k:=k+1;
writeln(k);
end.

Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17