Помогите с Паскалем

Задан массив A (N) (N<=60). Элементы массива, находящиеся между максимальным и минимальным элементами, отсортировать в порядке убывания. Отсортированный массив вывести на печать.

Constn=60; var a, l, i, j:integer; mas: array [1 ... n] of integer; begin randomize; writeln ('Исходный массив ') ; for i:=1 to n do begin mas[i]:=random (64) ; write (mas[i]:4) ; end; for i:=1 to n-1 do for j:=1 to n-i do if mas[j] < mas[j+1] then begin a:=mas[j]; mas[j]:=mas[j+1]; mas[j+1]:=a; end; writeln () ; writeln ('Массив по убыванию') ; for i:=1 to n do write (mas[i]:4) ; end.