Заполнить массив случайными числами. Найти на сколько максимальный элемент массива больше минимального. Очень надо. Пожалуйста!!!!

const n=10;var a:array[1..n] of integer;max,min,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end;writeln;max:=a[1]; min:=a[1];for i:=2 to n do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end;writeln('max = ',max,'  min = ',min);writeln('max-min = ',max-min);end.Пример:9 26 10 3 27 47 18 6 34 15 max = 47  min = 3max-min = 44

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),10,50); a.Println;  Writeln('Max-min=',a.Max-a.Min)end.Примерn= 1526 18 47 26 48 38 43 36 30 11 27 49 42 29 15Max-min=38