Дана строка написать программу заменяющую в строке все буквы а на букву о

Поскольку по условию задачи непонятно, на каком языке написана строка, то я написал программу, заменяющую АНГЛИЙСКУЮ "а" на АНГЛИЙСКУЮ "о". Если на другом языке - то программу можно переделать...

uses Crt;
var i : integer; 
   S, Snew : string;
begin 
ClrScr; 
 Write ('S = '); ReadLn(S); 
 Snew := ''; 
for i:=1 to length(S) do
    if S[i]='a' then Snew:=Snew+'o' 
                 else Snew:= Snew+S[i]; 
 WriteLn (S); 
 WriteLn (Snew); 
ReadLn;
end.