Решите ! надо! вводится 100 чисел. найти количество чисел, равных максимальному и количество чисел, равных минимальному. паскаль

begin

 var a := ReadArrInteger(100);

 var (min, max) := (a.Min, a.Max);

 Writeln('Чисел, равных минимальному: ', a.Where(t -> t = min).Count);

 Writeln('Чисел, равных максимальному: ', a.Where(t -> t = max).Count)

end.