В одномерном массиве из 10 элементов определить местоположение минимального и максимального элементов. Обнулить элементы, стоящие между ними , а также вывести полученный массив

Поскольку неясно, что делать, если в массиве несколько минимальных или максимальных элементов, то считаем, что их только по одному.const n=10;var  a: array[1..n] of integer;  mn,mx: integer;  i,k1,k2: byte;begin  mn:=maxint;  mx:=-maxint;  writeln ('Введите ',n,' чисел: ');  for i:=1 to n do begin;    read (a[i]);    if a[i]<mn then begin mn:=a[i]; k1:=i end;    if a[i]>mx then begin mx:=a[i]; k2:=i end;  end;  for i:=1 to n do     if (i>min(k1,k2)) and (i<max(k1,k2)) then a[i]:=0;  writeln;  writeln ('Местоположение минимального элемента: ',min(k1,k2));  writeln ('Местоположение максимального элемента: ',max(k1,k2));  writeln;  print (a);end.--------------------------------------------Пример:Введите 10 чисел: 5 2 9 4 6 8 2 1 3 7Местоположение минимального элемента: 3Местоположение максимального элемента: 85 2 9 0 0 0 0 1 3 7