Произвести замену символов в тексте - Turbo Pascal

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

Дан текст.Заменить в нем двумя символами введенными с клавиатуры,вычеслить количество замен и сумму кодов символов не пренадлежащей замене.Результат вывести на экран в 10-ой и 16-ой системах счисления.

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

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

Readln(ch1,ch2);
St:="Testing";
St[1]:=Ch1;
St[Length(St)]:=Ch2;
Writeln(St);

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

Строка кода Readln(ch1,ch2); считывает два символа из стандартного ввода и сохраняет их в двух переменных ch1 и ch2.
Строка St=Testing` создает строкуStсо значениемTesting`.
Строка St[1]:=Ch1; присваивает первому символу в строке St значение первого считанного символа ch1.
Строка St[Length(St)]:=Ch2; присваивает последнему символу в строке St значение второго считанного символа ch2.
Строка Writeln(St); выводит строку St на экран.