Составьте программу, которая позволяет заменить в строке s буквы о на буквы и, а буквы и - на буквы о

Var
  str:string;
  i:integer;
begin
  readln(str);
  for i:=1 to length(str)do
  begin
  if str[i] = 'о' then str[i]:='и' else
  if str[i] ='и' then str[i]:='о';
  end;
  write(str);
end.