Найти минимальный и максимальный элементы массива и переставить их местами

uses crt;
var a:array[1..100] of integer;
    i,j,n,min,max,x,imax,imin:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],' ');
 end;
Writeln;
max:=1;
min:=a[1];
for i:=1 to n do
 begin
  if a[i]>max then
   begin
    max:=a[i];
    imax:=i;
   end;
  if a[i]<min then
   begin
    min:=a[i];
    imin:=i;
   end;
 end;
Writeln('Min ',min,' [',imin,']');
Writeln('Max ',max,' [',imax,']');
x:=a[imax];
a[imax]:=a[imin];
a[imin]:=x;
Writeln('Zamena ');
for i:=1 to n do
 Write(a[i],' ');
Writeln;
Writeln('Sort ');
if imin<imax then
 begin
  for i:=imin+1 to imax-1 do
  for j:=i to imax-1 do
   if a[i]<a[j] then
    begin
     x:=a[i];
     a[i]:=a[j];
     a[j]:=x;
    end;
 end
 else
  begin
   for i:=imax+1 to imin-1 do
   for j:=i to imin-1 do
    if a[i]<a[j] then
     begin
      x:=a[i];
      a[i]:=a[j];
      a[j]:=x;
     end;
  end;
for i:=1 to n do
 Write(a[i],' ');
Readln;
end.

uses crt;
var a:array[1..100] of integer;
    i,j,n,p1,p2,sum:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],' ');
 end;
Writeln;
for i:=1 to n do
  if a[i]>0 then
   begin
    p1:=i;
    break;
   end;
for i:=p1+1 to n do
 if a[i]>=0 then
  p2:=i;
Writeln('P1 ',p1);
Writeln('P2 ',p2);
if p1<p2 then
 begin
  for i:=p1+1 to p2-1 do
   sum:=sum+a[i];
   Writeln('Sr= ',sum/n:0:1);
 end
 else
  begin
   for i:=p2+1 to p1-1 do
    sum:=sum+a[i];
    Writeln('Sr= ',sum/n:0:1);
  end;
Readln;
end.