Дан массив. Подсчитайте количество элементов массива, равных минимальному. (Массив из N, где N не более 100) (Паскаль)

Var
   A:array[1..100] of integer;
   N,Min,k:integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
Write('Исходный массив:');
For N:= 1 to N do
    Begin
    A[N]:=random(21)-10;
    Write(' ',A[N]);
    End;
Min:=A[1];
For N:= 2 to N do
    if A[N] < Min then Min:=A[N];
k:=0;
For N:= 1 to N do
    if A[N] = Min then k:=k+1;
WriteLn;
WriteLn('Min = ',Min);
Write('kMin = ',k);
End.