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

var s:string;

n, i, k:byte;

begin

readln (s);

n:=length (s);

k:=0;

for i:=1 to n do

if 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.