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

program z1;var a:string;          b,i:longint;beginread(a);for i:=length(a) downto 1 dobegin 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.