написать функцию замены в данной строке S подстроки S1 на подстроку S2
она не меняет когда пишешь ababab
program zamena;
var
s,s1,s2:string;
i:integer;
begin
writeln('введите строку:');
readln(s);
s1:='';
s2:='bc';
writeln ('s2:',s2);
while pos ('ab' , s)<>0 do
begin
s:=s1+
copy (s,1,pos('ab',s)-1) +'bc';
delete(s1,1,pos ('ab',s)+1);
end;
s:=s+s1;
writeln('s:',s);
end.