составьте программу, которая позволяет заменить в строке 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.