Задача на замену строк в Паскале - Pascal ABC

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

Дан текст из букв и цифр. Заменить все нули в тексте на букву А, а все единицы на букву М. Посчитать число замен

Решение задачи: «Задача на замену строк в Паскале»

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

var
s:string;
i,k:integer;
begin
writeln('Введите строку');
readln(s);
k:=0;
for i:=1 to length(s) do
    begin
    if s[i] = '0' then
        begin
        s[i]:='А';
        inc(k);
        end;
    if s[i] = '1' then
        begin
        s[i]:='М';
        inc(k);
        end;
    end;
writeln('Итоговая строка:');
writeln(s);
writeln('Число замен: ',k);
end.

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

Вводится строка с помощью функции readln.
Переменная k инициализируется значением 0.
Переменная i принимает значения от 1 до длины введенной строки s.
В цикле for происходит проверка каждого символа в строке s.
Если символ равен '0', то он заменяется на букву 'А', переменная k увеличивается на 1, и цикл продолжается.
Если символ равен '1', то он заменяется на букву 'М', переменная k увеличивается на 1, и цикл продолжается.
После завершения цикла, выводится итоговая строка s и значение переменной k.