Введите строку с клавиатуры. замените в ней все о на о​

1.

var s,s1:string;

i:integer;

begin

readln(s);

s1:=s;

for i:=1 to length(s1) do begin

if s1[i]='а' then s1[i]:='о' else

 if s1[i]='А' then s1[i]:='О' else

 if s1[i]='б' then s1[i]:='о' else

  if s1[i]='Б' then s1[i]:='О';

end;

writeln(s1);end.

Объяснение: