Ввести строку. Определить количество символов «k» в строке — Pascal(Паскаль)

Uses
  crt;

var
  kol, i: integer;
  s: string;
  k: char;

begin
  write('Ввведите строку: ');
  readln(s);
  k := 'k';
  kol := 0;
  for i := 1 to length(s) do
    if s[i] = 'k' then
      kol := kol + 1;
  if kol = 0 then
    write('Символов ', k, ' в строке ', s, ' нет')
  else
    write('кол-во символов ', k, ':=', kol);
  readln;

end.