Помогите пожалуйста решить задачу в Pascal вот задача:Дана последовательность из n различных целых чисел. Найти сумму ее членов, расположенных между максимальным и минимальным значениями (в сумму включить и оба этих числа).Если вы сделаете отправьте ответ скриншотом из Pascal.

constn=10;vara:array[1..n]of integer;min,max,i,s:integer; begin     for i:=1 to n do         read(a[i]);{вводим последовательность через пробел, последний элемент ENTER}          min:=1;max:=1;{поиск индекса мин и макс}             for i:=2 to n do                 begin                     if a[i]<a[min]then                         min:=i;                     if a[i]>a[max]then                         max:=i;                 end;{Если индекс мин меньше чем индекс макс то}if max>min then    for i:=min to max do        s:=s+a[i]else {если индекс макс меньше чем индекс мин}    for i:=max to min do        s:=s+a[i];writeln(' S= ',s);end.