В массив B скопировать элементы массива А с противоположным знаком - Pascal

Формулировка задачи:

Из массива А(10) состоящего из 40 вещественных знаков получить массив В, в который войдут все противоположные по знаку элементы массива А. Массив описать в разделе типов, Элементы массива А задать в разделе констант . На экран вывести массив В. const A: array [1..40] of real = (1, 2 ,3 ,4 ,5 ,6 ,7 ,8, 9 ,10)

Решение задачи: «В массив B скопировать элементы массива А с противоположным знаком»

Листинг программы

const
  N = 10;
  A: array [1..N] of real = (1, 2, 3, 4, -5, 6, -7, 8, 9, 10);
var
  B: array[1..N] of real;
  i: integer;
begin
  for i := 1 to N do begin
    write(A[i], ' ');
    B[i] := -A[i];
  end;
  writeln;
  for i := 1 to N do
    write(B[i], ' ');
end.

Объяснение кода листинга программы

Объявлены константа N равная 10 и массив A типа real с элементами от 1 до 10 и с отрицательным знаком на элементе 5.
Объявлен массив B типа real с элементами от 1 до 10.
Объявлена переменная i типа integer.
Запускается цикл for от 1 до N.
Внутри цикла выводится значение элемента массива A на экран.
Значение элемента массива A с противоположным знаком записывается в элемент массива B.
После завершения цикла выводится символ новой строки.
Запускается цикл for от 1 до N.
Внутри цикла выводится значение элемента массива B на экран.
Программа завершается.