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

В PascalABCnet
program 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.