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