var
  startIndex, endIndex, i, j: integer;
begin
  // iMin - индекс минимального элемента, iMax - максимального, y - исходный массив, z - итоговый

  // определение минимального из индексов (для цикла for)
  if iMin > iMax then
     begin
       startIndex := iMax;
       endIndex := iMin;
     end
  else
      begin
        startIndex := iMin;
        endIndex := iMax;
      end;

  // перенос необходимых элементов в массив z
  j := 1;
  for i := startIndex to endIndex do
     begin
       z[j] := y[i];
       j := j + 1;
     end;
 // Вывод массива z на экран
  for i := 1 to j - 1 do
     write(z[i]:4);
end.