Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р - Free Pascal

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

Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р,а буквы А на И. Протокол: Быть умным-это не значит знать всё,знать всё-это не значит быть умным. Получилось: Быть урныр - это не зничит знить всё,знить всё-это не зничит быть урныр. Помогите,пожалуйста,написать программный код на языке Pascal....

Решение задачи: «Нужно создать программу,которая запрашивает текстовую строку и заменяет все буквы М на Р»

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

program zam;
uses crt;
var
   i:integer;
   s:string;
   begin
      writeln('vvedite tekst');
      readln(s);
      for i:=1 to length(s) do
         if s[i]= 'М' then
            s[i]:= 'Р'
         else if s[i]= 'А' then
            s[i]:= 'И'
         else if s[i]= 'м' then
            s[i]:= 'р'
         else if s[i]= 'а' then
            s[i]:= 'и';
writeln(s);
end.

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

Создается программа zam с использованием библиотеки crt.
В программе объявлены следующие переменные: i: integer; s: string;
Программа выводит сообщение vvedite tekst и запрашивает ввод текстовой строки с помощью функции readln(s).
Переменная s содержит введенную текстовую строку.
Используется цикл for для прохода по каждому символу в строке s.
Внутри цикла проверяется значение каждого символа и при необходимости заменяется на новое значение.
Если символ равен 'М', то он заменяется на 'Р'.
Если символ равен 'А', то он заменяется на 'И'.
Если символ равен 'м', то он заменяется на 'р'.
Если символ равен 'а', то он заменяется на 'и'.
После прохода по всем символам, выводится измененная строка s.
Программа завершается.