.Поменять местами минимальные и максимальные элементы

const n=20;var a: array[1..n] of integer;   i, max, imax, min, imin : integer;beginRandomize; writeln('Исходный массив:');for i:=1 to n do begin  a[i]:=random(101)-50;   write(a[i],' '); end; writeln;max:=a[1]; imax:=1; min:=a[1]; imin:=1;for i:=2 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('max=',max,'  min=',min);a[imax]:=min; a[imin]:=max;writeln('Измененный массив:');for i:=1 to n do write(a[i],' ');  writeln;end.Пример:Исходный массив:-20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0 max=48  min=-38Измененный массив:-20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0