Сформировать массив из n случайных чисел . Используя процедуру поиска наименьшего числа в массиве и его номера,вывести номера всех элементов массива с наименьшим значением — Pascal(Паскаль)

var a:array[1..100] of integer;
k,i,j,m,n,min:integer;
procedure poiskmin;
var i:integer;
begin
min:=100;
for i:=1 to n do
if a[i]<min then min:=a[i];
end;
begin
randomize;
read(n);
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do
write(a[i],' ');
writeln;
poiskmin;
for i:=1 to n do
if a[i]=min then write(i,' ');
 
end.