Дан массив А(10).Все положительные элементы заменить на отрицательные (равные по модулю),а нули заменить на 100(Pascal)

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger('10 чисел:',10);  a.Transform(x->x>0?-x:x=0?100:x);  a.Printlnend.Пример10 чисел: 13 -10 5 0 14 0 -6 -7 0 4-13 -10 -5 100 -14 100 -6 -7 100 -4

Const   N = 10;Var   A:array[1..N] of integer;   i:integer;BeginWrite('Исходный массив: ');For i:= 1 to N do    Begin    A[i]:=random(21)-10;    Write(A[i],' ');    End;WriteLn;Write('Переработанный массив: ');For i:= 1 to N do    Begin    if A[i] > 0 then A[i]:=-A[i];    if A[i] = 0 then A[i]:=100;    Write(A[i],' ');    End;End.Пример:Исходный массив: -7 10 -1 -8 9 -5 -1 -5 -9 0 Переработанный массив: -7 -10 -1 -8 -9 -5 -1 -5 -9 100