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

Const n=20; var a: array[1..n] of integer;    i, max, imax, min, imin : integer; begin Randomize;  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