В массиве все элементы >10 и <20 заменить на первый элемент массива

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),1,30); a.Println;  var a1:=a[0];  a.Transform(x->((x>10) and (x<20))?a1:x); a.Println;end.Примерn= 158 6 15 29 11 20 11 13 19 6 1 10 18 26 198 6 8 29 8 20 8 8 8 6 1 10 8 26 8