Дан вектор N - элементов Вывести на экран отрицательные числа из этого вектора

const n=10; var x : array[1..n] of integer;    i : integer; begin Randomize;  writeln('Массив:'); for i:=1 to n do  begin   x[i]:=random(21)-10;   write(x[i],' ');  end;  writeln;  writeln('Отрицательные элементы массива:'); for i:=1 to n do  if x[i]<0 then write(x[i],' ');  writeln; end.