Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B - Pascal

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

Здравствуйте,помогите пожалуйста написать программу .Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B .Входные данные Входная строка содержит символы латинского алфавита, как строчные, так и заглавные. Выходные данные Программа должна вывести в первой строке получившуюся в результате обработки символьную строку, а во второй – количество выполненных замен. Примеры входные данные aabbccAABBCC выходные данные bbbbccBBBBCC 4

Решение задачи: «Напишите программу, которая заменяет в символьной строке все буквы a на буквы b , a буквы A на буквы B»

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

var s:string;
    n,i,k:byte;
begin
readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
if upcase(s[i])='A' then
 begin
  inc(k);
  if s[i]='a' then s[i]:='b'
  else s[i]:='B';
 end;
writeln(s);
write(k)
end.

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

Объявление переменных:
- s как строковая переменная для хранения вводимой строки
- n, i, k как байтовые переменные
Считывание строки:
- Считывается символьная строка и сохраняется в переменной s
Определение длины строки:
- Переменной n присваивается длина строки s
Инициализация переменной k:
- Переменной k присваивается значение 0
Цикл для замены символов:
- Итерация от 1 до n, где каждый символ проверяется
- Если символ в верхнем регистре равен 'A', то выполняются следующие действия
Замена символов:
- Увеличивается значение переменной k на 1 (inc(k))
- Если текущий символ равен 'a', заменяется на 'b'
- Если текущий символ равен 'A', заменяется на 'B'
Вывод измененной строки:
- Выводится измененная строка с замененными символами
Вывод количества замен:
- Выводится количество замененных символов пользователю