Var s:string; p:integer;
begin
writeln('Введите строку:');
readln(s);
p:=pos('ба',s);
if p>0
then
begin
while p>0 do begin delete(s,p,2); insert('ро',s,p); p:=pos('ба',s); end;
writeln(s);
end
else writeln('В строке нет слогов "ба"');
end.
Пример:
<span>Введите строку:
база
роза</span>
uses graphABC;
var
x1, y1, x2, y2: integer;
begin
x1 := 1;
y1 := 1;
x2 := 800;
y2 := 20;
Window.SetSize(800, 600);
for var i := 1 to 30 do
begin
SetBrushColor(clRandom);
FillRect(x1, y1, x2, y2);
y1 := y1 + 20;
y2 := y2 + 20;
end;
end.