ПОМОГИТЕ ДОПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ нужно что бы она посчитала количество мин?

ПОМОГИТЕ ДОПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ нужно что бы она посчитала количество мин??мальных значений среди N чисел: program DZ1; var N, K: integer; A, min, T: real; begin writeln('Задайте кол-во чисел'); read(N); write('Задайте первое число'); read(A); min := A; for K := 2 to N do begin write('Задайте', K, ' число'); read(A); if A = min then min := A; if A < min then min := A; end; writeln('Наименьшее число : ', min); readln end.