В массиве из 10 целых чисел наибольшие и наименьшие элементы нужно поменять местами — Pascal(Паскаль)

var a:array [1..10] of integer;
    i,n,max,min,mi,ma:integer;
begin
randomize;
for i:=1 to 10 do
 begin
  a[i]:=random(10);
  write(a[i], ' ');
 end;
max:=a[1];
min:=a[1];
for i:=1 to 10 do
 begin
  if a[i]>max then
   begin
    max:=a[i];
    ma:=i;
   end;
  if a[i]<min then
   begin
    min:=a[i];
    mi:=i;
   end;
 end;
n:=a[ma];
a[ma]:=a[mi];
a[mi]:=n;
writeln;
for i:=1 to 10 do write(a[i], ' ');
end.