Сгенерировать массив из 18 элементов в интервале от -4 до 82. Паскаль

Program n1; var a: array[1..18] of integer; i,k: integer; begin randomize; k:=0; writeln('исходный массив:'); for i:=1 to 18 do begin a[i]:=random(87)-4; write(a[i],' '); if a[i] mod 2=0 then k:=k+1; end; writeln; write('k четн: ',k); end.