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

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]<a[i] then mx:=i;  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.