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

begin
  var a:=ReadArrInteger('10 чисел:',10);
  a.Transform(x->x>0?-x:x=0?100:x);
  a.Println
end.


10 чисел: 13 -10 5 0 14 0 -6 -7 0 4
-13 -10 -5 100 -14 100 -6 -7 100 -4