Массив из 17 элементов заполнить целыми случайными числами от - 15 до 15. Вывести на экран не чётные элементы и их номера

Const Sz = 100; / / Размер массива

var

a: array [1 ... Sz] of integer;

N: integer; / / Количество элементов в массиве

k, i: integer;

begin

N : = 17;

for i:=1 to N do

a[i] : = Random (30) - 15;

for i:=1 to N do

begin

if (a[i] mod 2) 0 then

writeln (a[i], ' ', i) ;

end;

end.