Дан текст. определить количество букв "к". по правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране. 80 !

Var s:string;
k:integer;
begin
k:=0;
s:='По правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране.';
while pos('к',s)<>0 do
 begin;
  delete(s,pos('к',s),1);
  inc(k);
 end;
writeln(k);
end.

ответ:6