При помощи генератора случайных чисел задать одномерный А [10], состоящий из 10 целых чисел. Вывести его на экран через пробел, затем вывести измененные массив. (У всех элементов исходного массива поменять знак на противоположный.) В исходном массиве числа лежат на интервале [-5 ; 5]. Помогите пожалуйста!

const n = 10;var a: array[1..n] of integer;    i: integer;begin  randomize;  writeln('массив:');  for i:=1 to n do  begin    a[i]:=random(-5,5);    write(a[i],' ');    a[i]:=-a[i];  end;    writeln;  writeln('новый массив:');  for i:=1 to n do write(a[i],' ');end.