Символьные и строковые переменные - Turbo Pascal

Формулировка задачи:

Дано слово - последовательность символов, не содержащая пробелов. Заменить в этом слове все буквы " i " на " j ", а все " j " на " i ". Подсчитать общее число замен. Предполагается, что в исходном слове есть, по крайней мере, 1 буква " i " и 1 буква " j ".

Решение задачи: «Символьные и строковые переменные»

Листинг программы

  if s[i]='i' then begin
    ...
  end else if s[i]='j' then begin
    ...
  end;

Объяснение кода листинга программы

Переменная s содержит символы, которые нужно проверить.
Проверяется, равен ли символ i или j.
Если равен i, то выполняется некоторый код.
Если равен j, то также выполняется другой код.
Код может содержать дополнительные проверки, но они не указаны в данном вопросе.