Удалить из текста все буквы "о" - Pascal

var
    s: String;
    i: Byte;
begin
    Write('Input string: '); ReadLn(s);
    i := 1;
    while ((i <= Length(s))) do
        if (s[i] = 'o')
        then
            Delete(s, i, 1)
        else
            Inc(i);
    WriteLn(s);
end.