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

Var   A:array[1..100] of integer;   N,Min,k:integer;BeginRandomize;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.