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

program qq;
var s:string;   
      x,i:integer;
begin 
  writeln('Введите предложение:'); 
  readln(s); 
  x:=length(s) div 3; 
  for i:=1 to x do   
    s[i*3]:='а'; 
  writeln(s);
end.