Дан массив a размерностью n (размерность вводит пользователь). массив заполнен случайными числами от -15 до 15. найти минимальный элемент массива. вывести на экран все значения, равные минимальному и их индексы
паскаль

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -15, 15);

 a.Println;

 var i := a.IndexMin;

 var m := a[i];

 Println('Минимум равен', m);

 Print('Номера минимальных элементов:');

 a.Indices(p -> p = m).Select(p -> p + 1).Println

end.