Составе программу, которая заполняет массив а [1..8] случайными целыми числами в диапазоне от -5 до 5 и вывода на экран элементов с отрицательными значениями

Const
    max_v = 8;
    m1 = -5;
    m2 = 5;
    
var i:byte;
    v:array [1..max_v] of integer;

// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
  writeln(tx);
  randomize();
 
  for i:=1 to max_v do begin
    v[i]:=random(m1,m2);
    write(v[i]:6);
  end;
  writeln('');
  writeln('');
end;

begin
  randomArray('Начальный массив');
  writeln('Вывод на экран элементов с отрицательными значениями');
 
  for i:=1 to max_v do
    if v[i]<0 then
      write(v[i],'  ');

end.