В массиве A(n) подсчитать количество минимальных элементов. В турбо паскале решите пожалуйста

var   i: Integer;       //  рабочая переменная для for   k: Integer;       //  количество минимальных элементов   n: Integer;       //  размер массива  m : array [1..10] of Integer; // Собственно сам массив  из "n" элементов   i_min : Integer;  // Индекс минимального элемента в массиве begin   n:=10;  k := 0;  i_min := 1;   for i := 1 to n  do   begin     m[i] := Random(10);  // 10 - Число от балды     if (m[i]