Посчитать в одномерном массиве количество элементов кратных некоторому числу к

uses crt;
var a:array[1..100] of integer;
    n,i,k,q:integer;
begin
clrscr;
repeat
write('Введите размер массива от 2 до 100 n=');
readln(n);
until n in [2..100];
randomize;
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:4);
 end;
writeln;
write('Введите целое число для проверки кратности k=');
readln(k);
q:=0;
for i:=1 to n do
if a[i] mod k=0 then inc(q);
write('Количество чисел кратных ',k,'=',q);
readln
end.

program mask;
uses crt;
const n1=23;
      n2=19; 
      n3=17;
      n=25; 
type  mas=array[1..n] of integer;
var faf,f,k:integer;  x1:mas; x2:mas; x3:mas;  n4,i:integer; 
procedure rand(var j:mas; n:integer);
var i:integer;
begin
for i:=1 to n do
 begin
 f:=0;
 j[i]:=random(50)-5;
 write(j[i],' ');
 end;
 writeln;
  for i:=1 to n do
  begin
  if (j[i] mod k)=0 then f:=f+1; 
  
 
 end;
 writeln('Kol-vo kratnix chisly ',k,'=',f);
 for i:= 1 to n do
 if (j[i] mod k)=0 then
 writeln('Число кратне',k,'=',j[i]);
 end;
 
begin
writeln('vvedi k');
readln(k);
clrscr;
writeln('Mасив T1:');
rand(x1,n1);
writeln;
 
writeln('Mасив T2:');
 rand(x2,n2);
writeln;
writeln('Масив T3:'); 
 rand(x3,n3);
 readkey;
 
 end.