Вычислить разность между максимальным и первым элементом массива м (15) допускается использование любых операторов

// PascalABC.Net 3.0, сборка 1066
begin
  var M:=SeqRandom(15,-25,25).ToArray;
  Writeln('Исходный массив М: ',M);
  Writeln('Разность максимального и первого элементов: ',M.Max-M[0])
end.

Тестовое решение:
Исходный массив М: [1,-15,24,-14,-3,16,9,-16,5,9,11,19,12,18,-21]
Разность максимального и первого элементов: 23