Дан текст. Определить количество букв "К". По правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране. ДАЮ 80 БАЛЛОВ!

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