Question

Помогите пожалуйста!Дана строка, заменить все буквы о на а Pasckal ABC

Answer 1

var s: string;

i: integer;

begin

readln(s);

for i:=1 to length(s) do

if s[i]='o' then s[i]:='a';

write(s);

end.