Задана линейная таблица состоящая из целых чисел. Определить есть ли в этой таблице хотя бы одно число кратное k

program z;    const n=10;    var i,k:integer;         a:array[1..n] of integer; begin     writeln('введите k');     readln(k);       i:=1;     while (i<=n) and (a[i] mod k<>0) do i:=i+1;      if i<=n then writeln ('Число, кратное, ',k,', есть')      else ('Числа, кратного  ',k,', нет');      readln end.