В последовательности целых чисел найдите минимальное число и количество его повторений. Паскаль, помогите!

program p1;
var i,s,k,m,n:integer;
begin
m:=maxint; s:=0;
write('n: '); readln(n);
writeln('numbers:');
for i:=1 to n do
begin
read(k);
if k<m then begin s:=0; m:=k end;
if k=m then s:=s+1;
end;
write('min=',m,', k=',s);
end.

8 1 2 9 3 6 8 4 7 6 2 3 5 1 6 3 3 2 8 5
min= 1, kol povt= 2
===============
9 4 4 6 7 4 4 10 2 1 1 8 2 4 8 2 5 2 8 3
min= 1, kol povt= 2
===============
4 7 2 1 3 9 5 8 1 5 6 3 2 2 5 7 6 5 9 3
min= 1, kol povt= 2
===============
7 2 10 4 6 7 9 6 6 1 5 4 3 2 6 7 10 9 1 10
min= 1, kol povt= 2
===============
3 9 5 9 3 1 3 4 1 7 9 8 9 5 10 10 2 4 2 10
min= 1, kol povt= 2
===============
5 2 7 5 8 9 9 10 6 1 8 3 7 8 2 10 3 4 1 9
min= 1, kol povt= 2
===============
2 10 6 3 9 2 5 5 1 5 4 9 5 10 1 5 5 9 9 6
min= 1, kol povt= 2
===============
3 10 3 3 7 3 4 6 9 1 2 9 8 6 10 5 9 1 5 6
min= 1, kol povt= 2
===============
1 2 9 1 9 4 3 1 10 6 7 4 3 3 6 9 10 8 2 3
min= 1, kol povt= 3
===============
3 4 2 8 4 2 9 7 5 1 6 9 10 5 8 8 2 7 1 1
min= 1, kol povt= 3
===============
7 8 9 2 9 7 10 5 4 5 1 4 9 4 5 2 3 10 2 1
min= 1, kol povt= 2
===============
8 8 5 2 7 8 9 6 2 2 9 4 2 10 4 2 7 2 8 2
min= 2, kol povt= 7
===============
6 10 2 10 10 9 8 1 4 6 4 9 7 7 10 6 9 9 5 9
min= 1, kol povt= 1
===============
8 3 4 7 4 8 4 7 9 1 3 5 4 10 2 5 10 9 5 7
min= 1, kol povt= 1
===============
10 2 10 9 4 5 1 8 2 6 7 9 5 5 7 9 2 10 9 10
min= 1, kol povt= 1
===============
10 3 6 8 1 6 10 9 10 3 5 9 8 1 6 9 6 2 4 1
min= 1, kol povt= 3
===============
9 4 3 6 4 8 9 3 1 7 10 4 3 8 3 3 7 9 1 8
min= 1, kol povt= 2
===============
1 7 5 3 8 6 5 10 6 2 9 10 10 1 4 2 9 8 1 6
min= 1, kol povt= 3
===============
4 8 9 3 8 2 10 10 8 2 6 1 10 3 9 9 1 3 4 2
min= 1, kol povt= 2
===============
9 9 10 3 9 7 3 2 5 7 5 6 2 4 9 8 3 7 10 7
min= 2, kol povt= 2
===============
3 10 2 1 8 5 8 5 7 3 9 6 7 6 4 3 6 2 7 10
min= 1, kol povt= 1
===============
5 3 4 7 3 3 4 1 2 8 8 1 5 9 5 2 8 2 6 8
min= 1, kol povt= 2
===============
9 6 2 2 8 8 5 10 2 2 3 6 4 7 3 7 10 5 7 8
min= 2, kol povt= 4
===============
7 1 5 5 5 9 3 10 5 6 3 2 6 1 5 6 1 1 10 10
min= 1, kol povt= 4
===============
8 9 3 6 10 7 3 7 3 7 6 10 5 10 10 5 10 10 3 7
min= 3, kol povt= 4
===============
2 6 7 6 10 2 3 1 4 1 7 6 1 6 3 6 1 2 10 2
min= 1, kol povt= 4
===============