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

uses crt;var text, w, s: string; i: integer;Beginwrite('Введите изначальный текст: '); readln(text);write('Введи символ который хотите заменить: '); readln(w);write('Чем заменить символ: '); readln(s);write('Преобразованный текст: ');for i := 1 to length(text) doif text[i] = w then write(s)else write(text[i]);End.

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.