Помогите, пожалуйста, с решением задачи в Паскале по информатике.

Question

Помогите, пожалуйста, с решением задачи в Паскале по информатике.

---

Answer 1

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var n:=s.Where(c->c='a').Count;
  s:=s.Replace('a','b');
  Writeln(s); Writeln(n)
end.

Пример
aabbccabadef
bbbbccbbbdef
4