В массив 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.

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

Объявлены две массивы переменных: A и B типа array of real с размерностью N = 10.
В массиве A инициализированы значения элементов.
Переменная i инициализируется значением 1.
Запускается цикл for от 1 до N.
В каждой итерации цикла выводится значение элемента массива A с помощью функции write, после чего элемент массива B инициализируется значением противоположного элемента массива A с помощью оператора присваивания :=.
После завершения цикла выводится символ новой строки с помощью функции writeln.
Запускается цикл for от 1 до N.
В каждой итерации цикла выводится значение элемента массива B с помощью функции write.
Код завершается.