Програм которая заменит букву о на и

Возможно если конечно я не ошибаюсь С

Program E10;
  uses crt;
    var
      i: integer;
      S: string;
begin
  writeln('Введите строку: ');
  readln(S);
    for i:=1 to length(S) do
    if S[i] = 'о' then
      S[i]:='и';
        writeln('Вывод: ',S)
end.
Не знаю конечно но может так..