Найти количество чисел в массиве кратным 3 и НЕкратным 5 (не могу исправить ошибку)

program zzz;
 
var
  a: array[1..100] of integer;
  i, n: integer;
  x, y: real;
 
begin
  randomize;
  writeln('Введите количество элементов в массива');
  writeln;
  readln(n);
  writeln;
  for i := 1 to n do
  begin
    a[i] := random(10);     
    write(a[i]:3);
  end;
  writeln;
  for i := 1 to n do
  begin
    
    if a[i] mod 3 = 0 and a[i]<>0 then x := x + 1;
    if a[i] mod 5 > 0 then y := y + 1;
  end;
  writeln;
  writeln('Количество чисел кратных 3 = ', x);
  writeln;
  writeln('Количество чисел не кратных 5 = ', y);
end.

program zzz;
 
var
  a: array[1..100] of integer;
  x, i, n: integer;
 
begin
  randomize;
  x := 0;
  write('Введите количество элементов в массива: ');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(30);     
    write(a[i]:4);
    if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then 
      x := x + 1;
  end;
  writeln;
  writeln('Количество чисел кратных 3 и не кратных 5:  ', x);
end.