Помогите пожалуйста составить программу))

Я почти сделал, но к сожалению там пошла ошибка, а из-за того, что я не очень помню паскаль, эту ошибку я решить не смог. Я уверен, ты сможешь.

Код:

var
  a: array[1..1000] of integer;
  N, i, j, k: integer;
begin
  write('N = ');
  readln(N); //тут он тебя просит ввести количество чисел в массиве
  write('Введите ', N, ' целых чисел: ');
  for i := 1 to N do read(a[i]); //здесь ты вводишь поочереди все числа массива
 
  for j :=0 to N do
    if (array[j] mod 3 == 0) do //а вот тут пошла ошибка. Я хотел сделать так, что если число из массива делится на три без остатка(array[j] mod 3 == 0), то он это число плюсует к счётчику k
      k = k + array[j]; // собственно сама сумма чисел, которые делятся
end.