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

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