Заполните одномерный числовой массив А[16] случайными целыми числами в интервале

Const n=16;
var d:array[1..n] of integer;
var p:integer:=1;
i:integer;
begin
 Randomize;
 Writeln('Исходный массив в столбик:');
 for i:=1 to n do
   begin
   d[i]:=Random(-12,18);
   Writeln(d[i]:4);
   end;
   begin
   for i:=1 to n do
      if d[i]<3 then p*=d[i];
    Writeln('Задание 2');
    Writeln('Произведение элементов, меньших 3: ',p);
    end;
 
   Writeln('Исходный массив в строку:');
   for i:=1 to n do Write(d[i]:4);
   Writeln;
   end.

var
d:array[1..n] of integer;
k,i:integer;
begin
SetWindowSize(800,600); 
Randomize;
for i:=1 to n do
  begin
  d[i]:=Random(-12,18);
  k:=i;
  if (d[i] mod 2)=0 then begin
  SetFontColor(clgreen);
  Write(d[i]:4);
  SetFontColor(clBlack)
  end
  else Write(d[i]:4)
  end;
  Writeln;
  end.

Const n=16;
var a:array[1..n] of integer;
begin
 Randomize;
 Writeln('Исходный массив в столбик:');
 for var i:=1 to n do
  begin
   a[i]:=Random(-12,18);
   Writeln(a[i]:4);
  end;
Writeln('Исходный массив в строку:');
for var i:=1 to n do
Write(a[i]:4);
end.