Очень нужна помощь в редактировании программы

Очень нужна помощь в редактировании программы. Данная программа должна заменять на число 1000 ТОЛЬКО ПЕРВЫЙ элемент, кратный 4, а у меня заменяются всеэлементы, кратные 4. Где ошибка? program zamena; var akrat,i,n: integer; a: array[1… 1000] of integer; beginassign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln (n); for i: =1 to n do read (a[i]); akrat: =a[1]; for i: =1 to n dobeginif a[i] mod 4=0 thena[i]: =1000; end; for i: =1 to n dowriteln (a[i]); close (input); close (output); end.