Задан массив M(n). Подсчитать количество отрицательных элементов, расположенных до минимального элемента массива. PASCALABC

const i=10; var m:array[1..i] of integer; n,k,min,j:integer; begin k:=0; writeln('Введите элементы массива'); for n:=1 to i do read(m[n]); min:=m[1]; for n:=1 to i do if m[n]<min then begin min:=m[n]; j:=n; end; for n:=1 to j-1 do if m[n]<0 then inc(k); writeln(k); end.