Помогите с программой в Паскале: заменить на 1 все элементы массива С1,С2....Сn находящиеся в интервале [1,2]

[kairr]

заменить на 1 все элементы массива С1,С2....Сn находящиеся в интервале [1,2]

begin
  var a:=ArrRandomReal(ReadInteger('n='),0,3); a.Println;
  a.Transform(x->(x>=1) and (x<=2)?1.0:x); a.Println
end.

[Serge_Bliznykov]

чем помочь то?
у Вас готовая рабочая программа, написанная на PascalABC.NET.