Напишите программу, которая заменяет в символьной строке все буквы a на буквы b (латинские, строчные). В Си

var s:string; n,i,k:byte;beginreadln(s);n:=length(s);k:=0;for i:=1 to n doif upcase(s[i])=\'A\' then begin inc(k); if s[i]=\'a\' then s[i]:=\'b\' else s[i]:=\'B\'; end;writeln(s);write(k)end.