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

Question

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

Answer 1

Program DZ1;

var
N, K, S: integer;
A, min: real;

begin
writeln('Задайте кол-во чисел ');
read(N);
write('Задайте первое число ');
read(A);
min := A;
S := 1;
for K := 2 to N do
begin
write('Задайте ', K, ' число ');
read(A);
if A = min then S := S + 1;
if A < min then
begin
min := A;
S := 1;
end;
end;
writeln('Наименьшее число : ', min);
writeln('Количество вхождений : ', S);
end.