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.