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

// 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.Примерaabbccabadefbbbbccbbbdef4