Pascal.Дан одномерный массив. Определить Как узнать сколько отрицательных элементов находится после последнего минимального элемента.

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var imin:=a.LastIndexMin;
  a?[imin+1:].Where(t->t<0).Println
end.


n= 13
50 -39 13 -36 3 -43 6 21 -18 -25 48 31 -19
-18 -25 -19