Помогите!!! Дан массив из 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]end;
x:=max;
a[i_max]:=min;
a[i_min]:=x;
for i:=1 to n do
write(a[i],  );
readln;
end.