массив из 8 элементов заполнен случайными целыми числами из диапазона[-3,5] .Все отрицательные элементы увеличить на 10

В PascalABCnetprogram mass;var  a: array [1..8] of integer; n:integer;begin  for n:= 1 to 8 do    begin      a[n]:=random(1,9)-4;      write(a[n],'    ');    end;  writeln;  for n:= 1 to 8 do    begin      if a[n] < 0 then a[n]+=10;      write (a[n],'    ');    end;end.