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

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

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

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