Нужна в редактировании программы. данная программа должна заменять на число 1000 только первый элемент, кратный 4, а у меня заменяются все элементы, кратные 4. где ошибка? program zamena; var akrat,i,n: integer; a: array[1..1000] of integer; begin assign (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 do begin if a[i] mod 4=0 then a[i]: =1000; end; for i: =1 to n do writeln(a[i]); close (input); close (output); end.