массив из 17 частей заполнить целыми случайными числами от -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)lt;gt;0 then
writeln (a[i], ' ', i);
end;

end.