Переместить элементы, расположенные между минимальными и максимальными элементами, в обратном порядке

const
  maxSize=100;
type
  intVector=array[1..maxSize] of integer;
var
  a:intVector;
  i,arrSize,imin,imax,t,k:integer;
begin
  repeat
    write('Array size, not greater than ',maxSize,'=');
    readln(arrSize);
  until arrSize in [1..maxSize];
  randomize;
  writeln('Input array');
  for i:=1 to arrSize do
    begin
      write('[',i,']=');
      readln(a[i]);
      if i=1 then
        begin
          imin:=i;
          imax:=i;
        end
      else if a[i]>a[imax] then
        imax:=i
      else if a[i]<a[imin] then
        imin:=i;
    end;
  writeln;
  if imin>imax then
    begin
      t:=imin;
      imin:=imax;
      imax:=t;
    end;
  k:=imax-imin-1;
  for i:=1 to k div 2 do
    begin
      t:=a[imin+i];
      a[imin+i]:=a[imax-i];
      a[imax-i]:=t;
    end;
  writeln('Output array');
  for i:=1 to arrSize do
    write(a[i]:4);
end.