в массиве А(n) поменять местами максимальный с минимальным элементом — Pascal(Паскаль)

const
  n = 10;
var
  imin,imax,tmp,i:integer;
  a:array[1..n] of integer;
begin
  imax:= 1;
  imin:= 1;
  for i:= 1 to n do begin
    a[i]:= random(40)-10;
    write(a[i],' ');
    if a[i] > a[imax] then imax:= i;
    if a[i] < a[imin] then imin:= i;
  end;
  writeln;
  tmp:= a[imax];
  a[imax]:= a[imin];
  a[imin]:= tmp;
  for i:= 1 to n do
  write(a[i],' ');
end.