ПОМОГИТЕ ДОПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ
нужно что бы она посчитала количество минимальных значений среди 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.