массив из 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.