Если значения двух соседних элементов этой строки расположены через две буквы в русском алфавите, то заменить их на ноль

program z37;
var i:integer;
s:string;
begin
write('s=');readln(s);
writeln(s);
for i:=1 to length(s) do
begin
if s[i]='А' then if s[i+1]='Г' then begin s[i]:='о'; s[i+1]:='о';end;
if s[i]='Б' then if s[i+1]='Д' then begin s[i]:='о'; s[i+1]:='о';end;
if s[i]='В' then if s[i+1]='Е' then begin s[i]:='о'; s[i+1]:='о';end;
if s[i]='Г' then if s[i+1]='Ё' then begin s[i]:='о'; s[i+1]:='о';end;
if s[i]='Д' then if s[i+1]='Ж' then begin s[i]:='о'; s[i+1]:='о';end;
if s[i]='Е' then if s[i+1]='З' then begin s[i]:='о'; s[i+1]:='о';end;
if s[i]='Ё' then if s[i+1]='И' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Ж' then if s[i+1]='Й' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='З' then if s[i+1]='К' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='И' then if s[i+1]='Л' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Й' then if s[i+1]='М' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='К' then if s[i+1]='Н' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Л' then if s[i+1]='О' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='М' then if s[i+1]='П' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Н' then if s[i+1]='Р' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='О' then if s[i+1]='С' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='П' then if s[i+1]='Т' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Р' then if s[i+1]='У' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='С' then if s[i+1]='Ф' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Т' then if s[i+1]='Х' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='У' then if s[i+1]='Ц' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Ф' then if s[i+1]='Ч' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Х' then if s[i+1]='Ш' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Ц' then if s[i+1]='Щ' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Ч' then if s[i+1]='Ь' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Ш' then if s[i+1]='Ы' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Щ' then if s[i+1]='Ъ' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Ь' then if s[i+1]='Э' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Ы' then if s[i+1]='Ю' then begin s[i]:='о'; s[i+1]:='0';end;
if s[i]='Ъ' then if s[i+1]='Я' then begin s[i]:='о'; s[i+1]:='0';end;
end;
writeln(s);
[SIZE="1"][COLOR="White"]writeln('тру');[/COLOR][/SIZE]
end.