В одномерном массиве, состоящем из n вещественных элементов вычислить: 1. сумму отрицательных элементов массива; 2. произведение элементов массива, расположенных между максимальным и минимальным элементами.Упорядочить элементы массива по возрастанию — Pascal(Паскаль)

uses crt;
const n=10;
var m:array[1..n]of integer;
i,j,k,min,max:integer;
 
begin
 clrscr;
 write('Массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 k:=0;
 for i:=1 to n do if m[i]<0 then k:=k+m[i];
 write('Сумма отрицательных элементов = ',k);
 min:=1;
 max:=2;
 for i:=1 to n do if m[i]<m[min] then min:=i else if m[i]>m[max] then max:=i;
 k:=1;
 if min>max then for i:=max+1 to min-1 do k:=k*m[i] else
 for i:=max+1 downto min-1 do k:=k*m[i];
 writeln('Произведение элементов между MIN и MAX = ',k); 
  
 for i:=1 to n do
 for j:=1 to n-1 do
 if m[j]>m[j+1] then
 begin
  k:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=k;
 end;
 writeln('Отсортированный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.