составить программу,которая во введенном слове подсчитывала бы число букв <а> и заменяла их буквами б

Var S : String;    n : Byte;Begin  Readln(S);  While Pos('а',S)>0 do  Begin    Inc(n);    S[Pos('а',S)]:='б';  end;  Writeln(S,'  всего замен: ',n);end.