Дан массив найти количество кратных 17 и заменить их на число 17

var a: array [1… 100] of integer; i, n: integer; begin read (n); for i: =1 to n do begin read (a[i]); if a[i] mod 17=0 then a[i]: =17; end; for i: =1 to n do write (a[i], '); end.