Заменить все вхождения символа С1 в строку S на С2 - Pascal

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

Дана символьная строка S, символы С[1],C[2]. Заменить все вхождения символа С1в строку S на С2. Пожаалуйста)

Решение задачи: «Заменить все вхождения символа С1 в строку S на С2»

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

Var s:string;
    c1,c2:char;
Begin
    write('Введите строку S: ');
    readln(s);
    write('Введите символ C1: ');
    readln(c1);
    write('Введите символ C2: ');
    readln(c2);
    While pos(c1, s) > 0 do
     s[pos(c1, s)]:=c2;
    writeln('Полученная строка = ',s);
End.

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

s: переменная типа string для хранения строки
c1: переменная типа char для хранения символа C1
c2: переменная типа char для хранения символа C2
write('Введите строку S: '): вывод сообщения для пользователя с просьбой ввести строку
readln(s): ввод строки пользователем и сохранение в переменную s
write('Введите символ C1: '): вывод сообщения для пользователя с просьбой ввести символ C1
readln(c1): ввод символа C1 пользователем и сохранение в переменную c1
write('Введите символ C2: '): вывод сообщения для пользователя с просьбой ввести символ C2
readln(c2): ввод символа C2 пользователем и сохранение в переменную c2
while pos(c1, s) > 0 do: начало цикла, который выполняется до тех пор, пока символ C1 присутствует в строке S
s[pos(c1, s)]:=c2;: замена всех вхождений символа C1 на символ C2 в строке S
writeln('Полученная строка = ', s);: вывод полученной строки после выполнения замены
End.: конец программы