Удалить из текста все буквы «о» — Pascal(Паскаль)

var
i:byte;
s:string;
begin
write('Введите текст:');
readln(s);
for i:=1 to length(s) do
if pos('о',s)<>0 then delete(s,pos('о',s),length('о'));
write('Изменённый текст: ',s);
readln;
end.