Дана строка, удалить из нее все буквы "о". (pascal abc). , .

Program z1;
var a:string;   
      b,i:longint;
begin
read(a);
for i:=length(a) downto 1 do
begin 
if a[i]='o' then   
Delete(a,i,1); 
if a[i]='O' then   
Delete(a,i,1); 
if a[i]='î' then   
Delete(a,i,1); 
if a[i]='Î' then   
Delete(a,i,1);
end;
writeln(a);
end.