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

Строки как одномерные массивы

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

var s: string;
    k: char;
    i, n: integer;
begin
  writeln('write rnd string:');
  readln(s);
  writeln('write rnd symbol :');
  readln(k);
  for i:=1 to length(s) do
  begin
    if (s[i] = k) then
       n := n + 1;
  end;
  writeln('symbol ', k, ' was found ', n, ' times');
  readln();
end.

//write rnd string:
//asdasfsdfgafasdf
//write rnd symbol :
//f
//symbol f was found 4 times