Написать программу на паскале : требуется переписать элементы массива а в массив б,удвоив все элементы,меньшие 1-ого элемента,остальные переписать без изменений. массив а заполняется случайными числами

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var A:=ArrRandom(ReadInteger('n='),-99,99); A.Println;
  var Б:=A.Select(x->x<A.First?2*x:x).ToArray; Б.Println
end.

Пример
n= 15
11 -39 -30 -40 97 12 51 91 29 -52 2 27 -81 20 9
11 -78 -60 -80 97 12 51 91 29 -104 4 27 -162 20 18