Дан массив. Найти количество минимальных частей массива.

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin 
  var a:=ReadArrInteger('Введите элементы массива-gt;',ReadInteger('Введите размер массива-gt;'));
  Println('Количество минимальных-gt;',a.Where(t-gt;t=a.min).Count);
end.

Пример:

Введите размер массива-gt; 10
Введите элементы массива-gt; 1 2 3 4 5 6 7 1 1 1
Количество минимальных-gt; 4