Pascal.Помогите пожалуйста с задачкой)
Дан 1-мерный массив А(N), где N – заданное натуральное число. Массив получен методом генерирования случайных чисел. Заменить нулями элементы массива между минимальным и максимальным, кроме них самих. Распечатать полученный массив.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016begin  var n:=ReadInteger('n=');  var a:=ArrRandom(n,10,99); a.Println;  var imin:=0;  var imax:=0;  for var i:=1 to n-1 do    if a[i]>a[imax] then imax:=i    else      if a[i]<a[imin] then imin:=i;  if imin<imax then    for var i:=imin+1 to imax-1 do a[i]:=0  else    for var i:=imax+1 to imin-1 do a[i]:=0;  a.Printlnend.Тестовое решение:n= 1538 62 15 47 50 69 74 10 62 47 68 89 28 13 5038 62 15 47 50 69 74 10 0 0 0 89 28 13 50