Помогите решить задачу в Pascal
Задано слово произвольной длины. Определить, сколько раз в нем встречается буква "и"

var
  s: string;  x, i: integer;
begin
  write(Введите строку: );
  read(s);
  for i := 1 to length(s) do
    if s[i] = и then inc(x);
  writeln(Кол-во букв "и": , x);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.