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

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]
end;

n:=a[mn];

a[mn]:=a[mx];

a[mx]:=n;

writeln ('Massiv posle obrabotki');

for i:=1 to 10 do

write (a[i],' ');

writeln ();

end.