Составить програму в паскале Которая находит наибольший и наименьший элемент массива, вывести их и найти разницу между ними. СПАСИБО!!!!если можите то с поеснениями

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  var max:=a.Max;
  var min:=a.Min;
  Writeln('Max=',max,', min=',min,', max-min=',max-min)
end.


n= 15
96 26 -42 -69 -71 5 -5 57 49 -45 -22 -91 48 23 91
Max=96, min=-91, max-min=187