задана линейная таблица состоящая из целых чисел. Определить есть ли в этой таблице хотя бы одно число кратное 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,', нет');     readlnend.