Дан массив u15. в массиве есть два одинаковых umin. определить их номера.

Var U: array [1..15] of integer;
i, min :integer;

begin
for i := 1 to 15 do
read(U[i]);
min := U[1];
for i := 1 to 15 do
if (U[i] < min) then begin
min := U[i];
end;
for i := 1 to 15 do
if (U[i] = min) then write(i,' ');
end.