Удалить каждый третий элемент из строки — Pascal(Паскаль)

VAR
Words: STRING;
i:byte;
BEGIN
WriteLn;
Words := 'programmirovanie';
WriteLn(Words);
for i:=2 to length(words) do
if i mod 2<>0 then Delete(words,i,1);
WriteLn(Words);readln;
END.