Сформировать новый массив из элементов исходного, имеющих четные значения и кратных последнему отрицательному

{Сформировать новый массив из элементов исходного, имеющих четные значения
и кратных последнему отрицательному элементу. Если такие элементы
отсутствуют, то выдать об этом сообщение.}
const
  n_max=100;
type
  vector=array[1..n_max] of integer;
var
  x,y:vector;
  lastn,n,i,j:integer;
begin
  randomize;
  n:=100;
  for i:=1 to n do
    begin
      x[i]:=Integer(random(n_max)) - n_max div 2;
      write(x[i]:5);
      if x[i]<0 then
        lastn:=i;
    end;
  writeln;
  writeln('Последний отрицательный элемент: ',x[lastn]);
  j:=0;
  for i:=1 to n do
    begin
      if (not odd(x[i])) and (x[i] mod x[lastn]=0) then
        begin
          inc(j);
          y[j]:=x[i];
        end;
    end;
  if j=0 then
    writeln('Таких элементов в массиве нет.')
  else
    for i:=1 to j do
      write(y[i]:5);
  readln;
end.