Задано значение строковой переменной. определить сколько раз буква "к" встречается в данной строке.

Данная программа написана для Pascal:

var s:string;
      i,k:integer;
begin
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='к' then k:=k+1;
if k=0 then writeln('ни разу') else writeln(k);
end.