задачка по паскалю (⋋▂⋌)
_________________
дана строка символов (или вводится с клавиатуры любой текст)
в введенном предложении заменить слог "не" на слог "да"

var s:string;i,k:integer;begin;readln(s);while pos('не',s)<>0 do //пока есть 'не' в строкеbegin;k:=pos('не',s);         //сохраняем позицию неdelete(s,pos('не',s),2); //удаляем не из строкиinsert('да',s,k); //ставим не её место даend;writeln(s);end.