Массив из 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.