Дан одномерный массив с целыми числами элементов составить программу для нахождения количества чисел красных 3.

Var mas:array of integer;
   k,j,n,i:integer;
begin
Randomize;
 k:=0;
  write('n:'); 
 readln(n); 
SetLength(mas,n); 
 for i := 0 to n-1 do 
 mas[i]:=Random(100); 
  for j := 0 to high(mas) do 
  if mas[j] mod 3=0 then 
  inc(k); 
  write(k); 
 readln;
end.