Дан массив содержащий 2018 положительных целых чисел не превышающих 1000 необходимо уменьшить все элементы которые больше 100 на одно и то же значение при этом минимальный из них должен стать равным 100. Написать программу в Pascal.

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var a := ArrRandomInteger(2018, 0, 1000);

   var n := a.Where(x -> x >= 100).Min() - 100;

   for var i := 0 to a.Count() - 1 do

       if a[i] >= 100 then a[i] := a[i] - n;

   Println(a);

end.