Массив: Определить, сколько раз встречается минимальное число?

program Project1;
var
  a: array [1..20] of integer = (10, 13, 25, 45, -7, -9, -3, 34, 2, 5, -9, 0, 29, 3, 7, 17,-4, -5, -7, 2);
  // Переменная для хранения одномерного массива (массив чисел задан вместе с переменной).
  i: integer;    // Вспомогательная переменная для организации циклов.
  min: integer;   //  Переменная для хранения значения минимального элемента.
  k: integer;     //  Переменная для хранения значения количества подсчитанных элементов с минимальным значением.
begin
  min:= 2147483647;  //  Установка переменной в максимальное значение для типа integer.
  for i:= 1 to 20 do   // Цикл для перебора индексов массива.
   begin
     write(a[i]:4);    // Вывод элементов массива на экран.
     if i mod 10 = 0 then   // Если индекс элемента делиться на 10 то...
       writeln;             // перейти на новую строчку.
     if a[i] < min then  // Условия поиска минимального значения.
       min:= a[i];       // Присвоение переменной минимального значения.
   end;
  k:= 0;                // Предварительная установка счетчика в нуль.
  for i:=1 to 20 do      // Цикл для перебора индексов массива.
    if min = a[i] then   //  Условия поиска одинаковых значений элементов.
      inc(k);            //  Подсчет событий нахождения одинаковых значений.
  writeln('Количество элементов с минимальным значением ',min,', равно: ',k);
  Readln;
end.