Дан одномерный массив заполненный двузначными числами найти наибольший элемент массива и наименьший.поменять их местами и новый массив вывести на экран

var   n, i, mn, mx:integer;   a:array [1..10] of integer; begin   randomize;   writeln('Ishodnii massiv');   for i:=1 to 10 do   begin   a[i]:=random(90)+10;   write(a[i],' ');   end;   writeln();   mn:=1; mx:=1;   for i:=1 to 10 do   begin   if a[mn]>a[i] then mn:=i;   if a[mx]