pascal 把英文句子中所有的字母o换成e

var s:string;
i:longint;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o'
then s[i]:='e';
writeln(s);
end.
希望我的回答能帮到你.