Задача 1 урок 16

Задача 1 урок 16

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

var s: string;
 i, n: integer;
    k: char;
begin
  writeln('vvedite proizvolnuy stroku:');
  readln(s);
  writeln('vvedite simvol:');
  readln(k);
  n:=0;
  for i:=1 to length(s) do
  begin
    if (s[i] = k) then
       n := n + 1;
  end;

  writeln('Otvet: v vashey stroke simvol "',k,'" vstrechaetsya ',
    n, ' raz.');
  readln();
end.