Замените все элементы массива, стоящие на позиции кратной 3, на 0

Var a:array[1 ... 100] of integer;

i, n:integer;

begin

writeln ('Введите количество элементов массива') ;

read (n) ;

writeln ('Введите элементы массива') ;

for i:=1 to n do begin

read (a[i]) ;

if i mod 3 = 0 then a[i]:=0;

end;

for i:=1 to n do write (a[i],' ') ;

end.