Урок 17 Задача 1

Урок 17 Задача 1:

Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.

var
  s: string;
  i, n: integer;
begin
  writeln('Введите произвольную строку:');
  readln(s);
  n := 0;
  for i:=1 to length(s) do // обходим символы строки
  begin
    if (s[i] = 'k') then   // сравниваем очередной символ строки с литералом
      n := n + 1;
  end;
  writeln('Ответ: символ "k" встречается ',n, ' раз(a)');
  readln();
end.

Вывод в консоли:

Введите произвольную строку:
asfksdgk
Ответ: символ "k" встречается 2 раз(a)