Определить количество и вычислить сумму элементов одномерного массива N, кратных трем. ni/3*3=ni

Я точно такую же программу писала. Итог: не работает она на буке. А что уж там говорить о компьютерах в моем учебном заведении..(( Препод тоже говорит, что якобы есть ошибка. НО ГДЕ?! Я в непонимании..((

program odnmassiv; uses crt; Var N:array[1..50] of integer; i,s:integer; Begin randomize; For i:=1 to 50 do Begin N[i]:=random(31); write(N[i]:3); if N[i] mod 3 = 0 then s:=s+N[i]; End; writeln; writeln('Сумма элементов кратных 3 = ',s); readln; End.