Вывести отрицательные элементы массива

const
  n=10;
var
  a:array[1..n] of integer;
  i:integer;
begin
  randomize;
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
      a[i]:=Integer(Random(n)) - n div 2;
      write(a[i]:4);
    end;
  writeln; 
  writeln('Отрицательные элементы:');
  for i:=1 to n do
    if a[i]<0 then
      write(a[i]:4);
  readln;
end.

{Дан одномерный массив состоящий из n элементов. Если очередной элемент
чётный, то прибавь к нему первый, если нечётный - прибавить последний.
Первый и последний элементы не изменять.                        }
 
const
  n=10;
var
  a:array[1..n] of integer;
  i:integer;
begin
  randomize;
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
      a[i]:=Integer(Random(n)) - n div 2;
      write(a[i]:4);
    end;
  writeln;
  writeln('Измененный массив:');
  for i:=2 to n-1 do
    begin
      if odd(a[i]) then
        a[i]:=a[i]+a[n];
      if not odd(a[i]) then
        a[i]:=a[i]+a[1];
    end;
  for i:=1 to n do
    write(a[i]:4);
  readln;
end.

{Дан целочисленный одномерный массив. состоящий из n элементов. Найти
произведение нечётных элементов кратных 3.}
 
const
  n=10;
var
  a:array[1..n] of integer;
  i:integer;
  p:real;
  k:integer;
begin
  randomize;
  p:=1; k:=0;
  writeln('Исходный массив:');
  for i:=1 to n do
    begin
      a[i]:=Integer(Random(n)) - n div 2;
      write(a[i]:4);
      if (odd(a[i])) and (a[i] mod 3 = 0) and (a[i]<>0) then
        begin
          p:=p*a[i];
          inc(k);
        end;
    end;
  writeln;
  if k<>0 then
    writeln('Произведение: ',p:8:2)
  else
    writeln('Таких чисел нет.');
  readln;
end.