Какие то программу,которая считает в строке все символы а и заменяет их на символ в в паскале

Var a:string; i,d:integer;
Begin
Readln (a);
d:=length (a);
For i:=1 to d do
If a[i]='A' then a[i]:='B';
Writeln (a);
end.