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

Паскаль?
const n=<требуемое число элементов> ;
var a:array [1..n] of integer;
i,i_max,i_min: byte; max,min,x:integer;
begin
writeln(' Введите элементы массива через пробел');
for i:=1 to n do
read(a[i]);
max:=0; min:=1000;
i_max:=0; i_min:=0;
for i:=1 to n do
begin
if a[i]>max then begin max:=a[i]; i_max:=i; end;
if a[i]<min then begin min:=a[i]; i_min:=i; end;
end;
x:=max;
a[i_max]:=min;
a[i_min]:=x;
for i:=1 to n do
write(a[i],'  ');
readln;
end.