Дана исходная программа. Как изменить её так, чтобы она удаляла из текста все буквы ‘b’, непосредственно перед которыми идет буква ’c’. — Pascal(Паскаль)

Var     St: string;
        i: integer;
Begin
        Write('введите строку текста - St  ');
        Readln(St);
 
        for i:=2 to length(St) do
        if (St[i]='b')and(St[i-1]='c')
           then delete(St,i,1);
 
        writeln('преобразованная строка ', st);
End.