Набрать и выполнить программу замены во введенной с клавиатуры строке одного символа на другой. Оба символа также вводятся с клавиатуры.

var s,s1,s2:string;//вариант с несколькими символами в подстроках заменыi,m:integer;begin;readln(s); readln(s1);readln(s2);while pos(s1,s)<>0 do //пока подстрока есть в строке выполнятьbegin;m:=pos(s1,s);          //сохраняем текущую позицию delete(s,pos(s1,s),length(s1)); //удаляем ненужную подстрокуInsert(s2,s,m); //вставляем нужную подстроку на её местоend;writeln(s);end.