Паскаль данн предложение. все его символы , стоящие на третьем, шестом, девятом и т.д местах , заменить на буквы "а"

Var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) div 3 do
  s[i*3]:='a';
writeln(s)
end.