Розв’язок задачі з Абрамова №251

Всі умови | Умова: Дано натуральне число n, символи s1, ..., sn. підрахувати, скільки разів серед даних символів зустрічається буква x. (Строковий варіант: дана рядок символів; підрахувати, кільки разів серед символів рядка зустрічається буква x.) (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №251)

program pr251;
var
  s : string;
  x : char;
  i, k : integer;
begin
  write('s = '); readln(s);
  write('x = '); readln(x);
  k := 0;
  for i := 1 to length(s) do
    if (s[i] = x) then inc(k);

  writeln('Result: ', k);
  readln;
end.