Составить программу в массиве с N числами поменять местами максимальное и минимальное значения

min:=a[1];max:=a[1]; for i:=1 to n do begin if a[i]>max then begin max:=a[i]; imin:=i; end; if a[i]<min then begin min:= a[i]; imax:=i; end; end;buf:=a[imin];a[imin]:=a[imax];a[imax]:=buf;ВТОРОЙ СПОСОБ ВЫПОЛНЕНИЯ ПРОГРАММЫ:Var a: array[1..100] of integer; i,n,imin,imax: byte; min,max,buf: integer;Begin Randomize; Write(\'количество элементов: \'); Readln(n); For i:=1 to n do begin a[i]:=random(101)-50; Write(a[i],\' \'); end; Writeln; For i:=1 to n do write(a[i],\' \'); ReadlnEnd.