Найти количество положительных элементов массива, кратных К - Pascal ABC

const n=11;
var a:array[1..n] of integer;
    i,k,q:integer;
begin
writeln('Введите ',n,' элементов массива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Полученный массив');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Введите число К для проверки кратности k=');
readln(k);
q:=0;
for i:=1 to n do
if (a[i]>0)and(a[i] mod k=0) then q:=q+1;
write('Количество положительных, кратных ',k,'=',q)
end.