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

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

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

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