Нужно составить нормальный алгоритм Маркова! Алфавит ABCD. Заменить каждый чётный элемент на C и каждый 4ый на D.

Program Markov;uses crt;var a:string; i,b:integer;beginClrscr;writeln('Введите слово ');read(a);b:=length(a);for i:=1 to b do beginIf i mod 4 = 0 then begindelete(a,i,1);insert('D',a,i);end else If i mod 2 =0 then begindelete(a,i,1);insert('C',a,i);end;end;writeln(a);readln;end.