Задан массив 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.