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

const n=15;
 Type om=array[1..n] of integer;
 var k1,i,sum:integer; a:om;
  Procedure Init(var m:om; a,b:integer);
  var i:integer;
  begin randomize;
  for i:=1 to n do m[i]:=a+random(b-a+1);
  end;
  Procedure Print(var m:om; n:integer);
  var i:integer;
  begin for i:=1 to n do write(m[i],',');
  writeln; end;
BEGIN
Init(a,-30,30);
Print(a);
 writeln('Введите число: '); readln(k1);
 sum:=0;
  for i:=1 to n do
  if k1 mod 3=0 then sum:=sum+1;
  writeln(a[i]);
END.

const
  n = 15;
type
  om = array[1..n] of integer;
var
  k1, i, sum: integer; a: om;
 
procedure Init(var m: om; a, b: integer);
var
  i: integer;
begin
  randomize;
  for i := 1 to n do m[i] := a + random(b - a + 1);
end;
 
procedure Print(var m: om; n: integer);
var
  i: integer;
begin
  for i := 1 to n do write(m[i], ',');
  writeln; end;
 
begin
  Init(a, -30, 30);
  Print(a,n);
  writeln('Введите число: '); readln(k1);
  sum := 0;
  for i := 1 to n do
    if a[i] mod k1 = 0 then sum := sum + 1;
  writeln(sum);
end.

const n=15;
type vector=array[1..n]of integer;
var k,sum,i:integer;
    a:vector;
 
begin
write('введите число: ');readln(k);
for i:=1 to n do
a[i]:=Random(21)-10;
write('массив: ');
for i:=1 to n do
write(a[i],' ');
sum:=0;
writeln();
for i:=1 to n do
if (a[i] mod k = 0) then sum:=sum+1;
write('количество чисел в массиве кратных числу ',k,' = ', sum);
end.