Дан массив А1….А20 . Поменять местами минимальный и максимальный элемент массива — Pascal(Паскаль)

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,temp1,temp2,max,min:integer;
begin
  clrscr;
  
  writeln('------:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    if i=1 then
    begin
      max:=a[i];
      temp1:=1;
      min:=a[i];
      temp2:=1;
    end;
    if a[i]>max then
    begin
      max:=a[i];
      temp1:=i
    end;
    if a[i]<min then
    begin
      min:=a[i];
      temp2:=i
    end;
    write(a[i]:2,' ')
  end;
  writeln(']');
  writeln('a[',temp1,'] - Элемент 1');
  writeln('a[',temp2,'] - Элемент 2')
end.