Найти кол-во элементов массива, кратных 7. Массив ввести с клавиатуры — Pascal(Паскаль)

uses crt;
const n=100;
type mas=array [1..n] of integer;
var m:mas;
    x:integer;
    i,k,t:integer;
Procedure vvod(var h:mas;var k:integer);
begin
for i:=1 to k do begin
   write('Введите элемент массива:');
   readln(x);
   h[i]:=x;
end;
end;
 
 
Begin
clrscr;
write('Введите кол_во элементов массива:');
readln(k);
vvod(m,k);
for i:=1 to k do
    if m[i] mod 7=0 then inc(t);
writeln('Кол-во эл-ов кратных 7 равно : 't);
readln;
end.