Задана строка s,удалить в этой строке все пробелы и все «о» поменять на «и» — Pascal(Паскаль)

var s:string;
    i:integer;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
begin
   if s[i]=' ' then delete(s,i,1);
   if s[i]='o' then
   begin
      delete(s,i,1);
      insert('i',s,i);
   end;
end;
writeln(s);
end.