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

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

end;

writeln(a);
readln;
end.