Дан массив из 10 чисел. Определите,сколько элементов массива имеют минимальное значение.(напишите программу)

varm: array [1..10] of integer;max, k, i: integer;beginfor i := 1 to 10 doread(m[i]);max := m[1];k := 1;for i := 2 to 10 doif m[i] > max thenbegink := 1;max := m[i]endelseif m[i] = max theninc(k);write(k)end.