ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА

Найти значения минимального элемента одномерного целочисленного массива, сформированного пользователем, и его индекс. Внимание, предусмотреть ситуацию нескольких элементов с минимальным значением. В этом случае вывести на экран все индексы. Паскаль.

varmas:array[1..10] of integer;i,min:integer;beginmin:=maxint;for i:=1 to 10 dobeginreadln (mas[i]);if (mas[i]<min) then min:=mas[i];end;writeln ('Минимальный элемент массива =',min);for i:=1 to 10 doif (mas[i]=min) then writeln ('Индекс минимального элемента: ',i);end.