Дана строка, написать программу замещающую букву «а» на букву «о»- Pascal(Паскаль)

var
 s:string;
 i:integer;
begin
 readln(s);
 for i:=1 to length(s) do
 if s[i]='a' then s[i]:='o';
 writeln(s);
end.